Excel macros Taba dinámica

Hola como puedo hacer una macro de tabla dinámica ya que tengo dos hojas una es BaseFact1 y lo otra es Saldos tengo esta macro grabada pero meda un error esta marcado en negrita, lo que necesito que haga es que primero limpie los datos que tiene la hoja saldos de de "A5", hasta donde hace la tabla dinámica ya que siempre se se moverá la hoja BaseFact1 como lo realizo

Private Sub CommandButton1_Click()
Sheets("BaseFact1").Select
Columns("B:L").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"BaseFact1!R1C2:R1048576C12", Version:=xlPivotTableVersion14). _
CreatePivotTable TableDestination:="Saldos!R7C1", TableName:= _
"Tabla dinámica3", DefaultVersion:=xlPivotTableVersion14
Sheets("Saldos").Select
Cells(7, 1).Select
With ActiveSheet.PivotTables("Tabla dinámica3").PivotFields("Fact")
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("Tabla dinámica3").PivotFields("Fecha ")
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables("Tabla dinámica3").PivotFields("CLIENTE")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tabla dinámica3").PivotFields("Fecha Pag")
.Orientation = xlColumnField
.Position = 2
End With
ActiveSheet.PivotTables("Tabla dinámica3").AddDataField ActiveSheet.PivotTables _
("Tabla dinámica3").PivotFields("PRECIO UNIT"), "Cuenta de PRECIO UNIT", _
xlCount
ActiveSheet.PivotTables("Tabla dinámica3").AddDataField ActiveSheet.PivotTables _
("Tabla dinámica3").PivotFields("Importe"), "Cuenta de Importe", xlCount
With ActiveSheet.PivotTables("Tabla dinámica3").PivotFields( _
"Cuenta de PRECIO UNIT")
.Caption = "Suma de PRECIO UNIT"
.Function = xlSum
End With
With ActiveSheet.PivotTables("Tabla dinámica3").PivotFields("Cuenta de Importe" _
)
.Caption = "Suma de Importe"
.Function = xlSum
End With
Range("F11:O13").Select
Selection.NumberFormat = "#,##0.00_);[Red](#,##0.00)"
End Sub