Estoy intentando copiar datos de la hoja de trabajo "Datos de resumen del proyecto" y pegarlos en una tabla en la hoja de trabajo "Resumen del informe de costos del proyecto". Soy muy nuevo en Macro, por lo que no estoy seguro de qué estoy haciendo mal aquí, pero el error parece estar en esta parte tbl.Range("D7").Paste.
Necesito pegar los datos en la celda "D7" del "Resumen del informe de costos del proyecto", que técnicamente sería la primera fila de datos de la tabla (sin encabezados) y la cuarta columna de la tabla.
El error que recibo es el error de tiempo de ejecución '1004': no se puede obtener la propiedad de selección de la clase de rango.
Sub filter_copy_paste()
Dim region As String
Dim Report As Worksheet
Dim Data As Worksheet
Dim count_col As Integer
Dim count_row As Integer
Dim tbl As ListObject
Set Report = ThisWorkbook.Sheets("Project Cost Report Summary")
Set Data = ThisWorkbook.Sheets("Project Summary Data")
region = Data.Range("I1").Text
Set tbl = Report.ListObjects("Table2")
'determine the size of the range
Data.Activate
count_col = WorksheetFunction.CountA(Range("A1", Range("A1").End(xlToRight)))
count_row = WorksheetFunction.CountA(Range("A1", Range("A1").End(xlDown)))
'filter data on Raw Data tab
Data.Range("A1").AutoFilter field:=1, Criteria1:=region
'Copy and Paste to Cost Report
Data.Range(Cells(2, 2), Cells(count_row, count_col)).SpecialCells(xlCellTypeVisible).Copy
tbl.Range("D7").Paste
Application.CutCopyMode = False
'Show Data and Remove the Filter
With Data
.ShowAllData
.AutoFilterMode = False
End With
End Sub