How to copy or append the data to one sheet to another sheet?

[Rampage598]

I want to copy all the data from 2nd row from sheet2 to sheet1.... but there is one condition if there is already have some data into sheet1 then it will append the data to it from sheet2 to sheet1

How to do this in excel macro?

 

[kevin9999]

Try this

Sub Rampage598()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lr1 As Long, lr2 As Long
    
    Set ws1 = Worksheets("Sheet1")
    Set ws2 = Worksheets("Sheet2")
    lr1 = ws1.Cells(Rows.Count, 1).End(3).Row + 1
    lr2 = ws2.Cells(Rows.Count, 1).End(3).Row
    
    ws2.Range(ws2.Cells(2, 1), ws2.Cells(lr2, 3)).Copy ws1.Cells(lr1, 1)
End Sub

 

[Rampage598]

Try this

Sub Rampage598()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lr1 As Long, lr2 As Long
   
    Set ws1 = Worksheets("Sheet1")
    Set ws2 = Worksheets("Sheet2")
    lr1 = ws1.Cells(Rows.Count, 1).End(3).Row + 1
    lr2 = ws2.Cells(Rows.Count, 1).End(3).Row
   
    ws2.Range(ws2.Cells(2, 1), ws2.Cells(lr2, 3)).Copy ws1.Cells(lr1, 1)
End Sub

Thanks its working properly

 

[kevin9999]

Thanks its working properly

Glad I could help and thanks for the feedback ?