Copy rows range from Sheet1 to Sheet2 in excel VBA

Question

My excel data is feeding from other real time application source. My requirement is I want to copy range A1:M20 periodically from Sheet1 to Sheet2. In Sheet2 append new rows(not overwritten). Someone help me to do in excel VBA/

Answer 1

I got the answer after long search. Here it is.

Sub copyData()
    Sheets("Sheet1").Select
    lr = Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row
    Range("A2:F" & lr).Copy
    Sheets("Sheet2").Select
    lrTarget = Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row
    Cells(lrTarget + 1, 1).Select
    ActiveSheet.Paste
    Columns("A:F").AutoFit
    Cells(1, 1).Select
End Sub