Error en Macro que crea una Tabla Dinámica

Respuesta de
Usuario
Hola Expertos, alguien me podría ayudar con lo siguiente, hice una macro que crea una tabla dinámica el problema es que me esta marcando error 1004 en tiempo de ejecución, referencia no valida ya revise en la página de Microsoft y seguí las instrucciones que ahí dicen para solucionar este error pero no funciona, a continuación les pogo el código que se genera, lo que esta en negrita es donde marca el error:
Sub Macro7()
'
' Macro7 Macro
'
' Acceso directo: Ctrl+k
'
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Hoja1!F7C1:F65536C6", Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="", TableName:="Tabla dinámica22", _
        DefaultVersion:=xlPivotTableVersion10

   
    With ActiveSheet.PivotTables("Tabla dinámica22").PivotFields("Producto")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tabla dinámica22").AddDataField ActiveSheet. _
        PivotTables("Tabla dinámica22").PivotFields("Producto"), "Cuenta de Producto", _
        xlCount
    Range("H8").Select
    ActiveWorkbook.ShowPivotTableFieldList = False
    With ActiveSheet.PivotTables("Tabla dinámica22").PivotFields("Producto")
        .PivotItems("Producto").Visible = False
        .PivotItems("(en blanco)").Visible = False
    End With
    ActiveWindow.SmallScroll Down:=-12
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
End Sub

De antemano les agradezco. Saludos!
Avatar
Experto
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Hoja1!R7C1:R65536C6", Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="", TableName:="Tabla dinámica22", _
        DefaultVersion:=xlPivotTableVersion10


Intenta así.
Usuario
Buen día! Oye disculpa pero creo que es el mismo código que el que me marco el error.
Avatar
Experto
No, la diferencia es en
SourceData:= _
        "Hoja1!R7C1:R65536C6"

Esta con el Formato de R1C1 y no en F1C1, es decir, en ingles Row (R) por Fila (F) y Column (C) queda igual para Columna (C).

¿Lo probaste?
Usuario
Ya probé con la solución que me diste pero ahora me arroja el mismo error pero con diferente argumento Dice así: Error 1004 en tiempo de ejecución, El nombre del campo de tabla dinámica no es válido. Para crear un informe de tabla dinámica debe usar datos organizados en forma de lista con columnas rotuladas.
El problema es que el rango que le estoy dando si esta en forma de columnas, entonces porque no lo acepta.
Avatar
Experto
¿Puedes enviarme tu archivo para revisarlo?
jerry0013@yahoo.com.mx
Avatar
Experto
¿Puedes mandarme tu archivo? jerry0013@yahoo.com.mx 
O checa esta pag
http://msdn.microsoft.com/es-es/vbasic
Usuario
Muchas gracias por tu ayuda, investigando un poco más encontré una solución aunque creo que no es la forma correcta de hacerlo pero funciona bien. Saludos!