Juntar los datos de varias base de datos en una sola

With PC
        .Connection = strCon
        .CommandType = xlCmdSql
        .CommandText = strSQL
        Set PT = .CreatePivotTable(TableDestination:=ActiveSheet.Range("A21"))
        PT.Name = "TestPivot"
    End With

deseo cambiar el rango para que en vez de en esta hoja lo haga en otra x ejemplo"resumen",pero le cambio el TableDestination y me da error