Copy Worksheet to the end of another Worksheet

[opg]

I would like to implement a macro that will copy the contents of the active worksheet (sheet1 for example) and will paste it to the end (the first empty row) of another worksheet (sheet2) both sheets are in the same workbook, and sheet2 has pre-existing data.

Additional Info: if need be, Columns A to H have continuous data (no empty cells till the end of the database) and column I has some empty cells.

[JBeaucaire]

Try these lines of code:

Dim LR as Long
LR = Range("A" & Rows.Count).End(xlUp).Row

Range("A1:I" & LR).Copy Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

[opg]

thanks, it does the trick, even with an auto-filtered query

[opg]

How can I modify the

A2:J

in the code below to always copy the active range starting from the second row if it's not always A2 (for example if I use an Autofilter query, A2" might become A4 because the autofilter is applied I would like to add an offset

Sub copytoSheet9WS2()

Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row

Range("A2:J" & LR).Copy Sheets("Sheet9").Range("A" & Rows.Count).End(xlUp).Offset(0, 0)

End Sub

[JBeaucaire]

You don't need to. If the range is Filtered, the only thing that gets copied is the visible rows, right?