Pivot Table VBA code: Out of Range Error

Hi Guys,

I need to automate pivot table creation through VBA, and I have hit a bit of snag that I am hoping some of you may help me out with.
The following code is used:

'
' Pivot_Table Macro
'

'
Worksheets("Summary Sheet").Activate
Worksheets("Summary Sheet").Select
Range("A5").Select
ActiveWorksheets.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R5C1:R34665C4", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="Summary Sheet!R5C1", TableName:="PivotTable1", _
DefaultVersion:=xlPivotTableVersion14
Sheets("Summary Sheet").Select
Cells(5, 1).Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields("DDDD")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("DDDDD1")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("DDDD111")
.Orientation = xlRowField
.Position = 3
End With
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("Dialled_Number_Name"), _
"Count of Dialled_Number_Name", xlCount
With ActiveSheet.PivotTables("PivotTable1").PivotFields("DDDDD111")
.Orientation = xlColumnField
.Position = 1
End With

Now I am having the following error at the following line: Runtime error 1004 Select Method of Range Class failed.

And it occurs at the following:

Range("A5").Select

Can you guys figure out what is wrong with the code, the macro was recorded while I made the pivot table.