Hello all,
I hope everyone's enjoying this sunny weather (if the suns shining)
Just wondering if I might be able to receive some help, please.
What I'm trying to achieve is copying an entire table, minus headings and past all the data into the last row of a new table, in a new sheet. I've been able to copy the table but the headings are also copied. Additionally when pasting I'm only able to past 1 row. :/
Sorry in advance if it's anything obvious. I'm a complete novice. :}
Many thanks in advance for any assistance and feedback.
I hope everyone's enjoying this sunny weather (if the suns shining)
Just wondering if I might be able to receive some help, please.
What I'm trying to achieve is copying an entire table, minus headings and past all the data into the last row of a new table, in a new sheet. I've been able to copy the table but the headings are also copied. Additionally when pasting I'm only able to past 1 row. :/
Sorry in advance if it's anything obvious. I'm a complete novice. :}
Many thanks in advance for any assistance and feedback.
VBA Code:
Dim rng As Long
Dim LastRow As Long
Set rng = ActiveWorkbook.Worksheets("Sheet2").ListObjects("Table2").Range
LastRow = rng.Find(What:="*", _
After:=rng.Cells(1), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
rng.Parent.Cells(LastRow + 1, 1).Value = Sheet1.ListObjects("Table1").Range