Snasui Excel Forum

Code: Select all

Sub copy1() 'Copytosheet 3
Dim NextRow As Integer


    Range("Q2:R2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.copy
    Sheets("Sheet3").Select
    Range("A2").Select
    ActiveSheet.Paste
    
    Worksheets("Sheet2").Select
    Range("Z2:AA2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.copy
    
    NextRow = Worksheets("Sheet3").Cells(Rows.Count, 1).End(xlUp).Row + 1   '# To find next row
    Cells(NextRow, 1).Select
    Selection.Paste
        
End Sub

Code: Select all

Sub test()
Dim lr As Long
With Sheets("Sheet2")
    lr = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("Q2:R" & lr).copy Sheets("Sheet3").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    .Range("Z2:AA" & lr).copy Sheets("Sheet3").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End With
End Sub