Macro para atualizar tabla dinamica

[gustav2704]

saludos

tengo una macro que me actualiza una tabla dinamica ubicada en una "Hoja2" pero la fuente de los datos esta en la "Hoja2" que es uan base de datos que se ACTUALIZA cada cierto tiempo.

El problema es que el el parrafo rojo(abajo) me di cuenta que no me deja tomar datos de una hoja distinta a la hoja donde se ubicara la tabla dinamica. Que puedo hacer

Sub Actualización_de_tablas_dinámicas()

Dim rango1 As Range

ActiveWorkbook.Worksheets("Hoja1").Select

Range("A1").Select

Set rango1 = Range(Selection.End(xlToRight), Selection.End(xlDown)) ''ajusta el RANGO ORIGEN de la tabla

ActiveSheet.PivotTables("Tabla dinámica4").ChangePivotCache ActiveWorkbook. _

PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Worksheet("Hoja1"). & rango1, _

Version:=xlPivotTableVersion14)

End Sub

otras Opciones para eñl parrafo rojo

ActiveSheet.PivotTables("Tabla dinámica4").ChangePivotCache ActiveWorkbook.Worksheets("Hoja1"). _

'PivotCaches.Create(SourceType:=xlDatabase, SourceData:=rango1, _

Version:=xlPivotTableVersion14)

ActiveSheet.PivotTables("Tabla dinámica4").ChangePivotCache ActiveWorkbook. _

PivotCaches.Create(SourceType:=xlDatabase,SourceData: =worksheet("Hoja1"). & rango1, _

Version:=xlPivotTableVersion14)

ActiveSheet.PivotTables("Tabla dinámica4").ChangePivotCache ActiveWorkbook. _

PivotCaches.Create(SourceType:=xlDatabase, SourceData:=sheet("Hoja1").& rango1, _

Version:=xlPivotTableVersion14)

ActiveSheet.PivotTables("Tabla dinámica4").ChangePivotCache ActiveWorkbook. _

PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Hoja1!& rango1, _

Version:=xlPivotTableVersion14)

ActiveSheet.PivotTables("Tabla dinámica4").ChangePivotCache ActiveWorkbook. _

PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Sheet("Hoja1"). Range(Selection.End(xlToRight), Selection.End(xlDown)), _

Version:=xlPivotTableVersion14)

el problema esta en la forma como defino el SourceData pero he probrado muchas formas y nada. como le digo al Source data que la fuente de datos esta en otra hoja diferente donde esta la tabla dinamica y que a la vez involucre la variable rango1???