La función del comando Resize es ampliar el rango de selección. Se le da como parámetros la cantidad de filas y columnas extras que se quieren seleccionar.
En este ejemplo se selecciona una tabla que se encuentra en la hoja 1
Sub sel()
Set tbl = ActiveCell.CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Select
End Sub
Utilizando el comando OFFSET se selecciona solo el contenido de la tabla, obviando los encabezados.Es decir se salta una fila.
Con el siguiente modulo se copia la tabla seleccionada, es decir los datos en si, sin encabezados, en la hoja 2.
Sub final()
Application.Run "Libro1.xlsx!sel"
Selection.Copy
Sheets("Hoja2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
Podría ampliarse el alcance de esta macro al dar como parámetro las celdas que se desean copiar o mejor dicho las columnas y unir solo las columnas requeridas para presentar un reporte en la hoja siguiente.
Elaborado por: Jacques Sovero