Visual Basic - Tabla dinamica excel desde Vb

Por favor requiero su ayuda, lo que estoy haciendo es exportar una data a excel eso ya lo realice, mi problema es que quiero que despues de exportarlo me genere una tabla dinamica automaticamente, aqui estan las lineas que estoy usando (una parte del codigo) pero me sale error, ayudenme por favor:

Sheets("Hoja1").Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Hoja1!F2C1:F6C17", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="Hoja4!F3C1", TableName:="Tabla dinámica1", _
DefaultVersion:=xlPivotTableVersion12
Sheets("Hoja4").Select
Cells(3, 1).Select