Excel VBA: Copy multiple Column of a Table

[wsw979]

I am trying to use VBA coding to copy a table to another table. But I am only interested in copying row 2 to row 20 (minus Header and row 1) to another table. I understand there is a function .databodyrange, but this will copy every data in the table which is not what I am looking for.

 

[pgc01]

Hi
Welcome to the board

See if this helps:

Dim lstO As ListObject

Set lstO = ActiveSheet.ListObjects("MyTable")

lstO.Range.Offset(2, 0).Resize(18).Copy Destination:=Range("Z1")

 

[pgc01]

Similar if you want to use .DataBodyRange

lstO.DataBodyRange.Offset(1, 0).Resize(18).Copy Destination:=Range("Z1")