Macro that inports and generates PivotTable

Whenever I create a macro that imports data from a web page and then it takes that data to create a PivotTable the macro fails.

It seems like a simple action that should be recorded but I can not seem to get this to work.
-----------------------------------------------------------------------------
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 9/25/2003
'

'
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C1:R1455C22").CreatePivotTable TableDestination:="", TableName:= _
"PivotTable1"
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("PivotTable1").SmallGrid = False
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="Customer", _
ColumnFields:="Status"
ActiveSheet.PivotTables("PivotTable1").PivotFields("Revenue").Orientation = _
xlDataField
End Sub

-----------------------------------------------------------



Any ideas?

Thanks