Snasui Excel Forum

Code: Select all

Private Sub CommandButton1_Click()
Dim LastRow As Long
Dim Results As Worksheet
    Set Results = Sheets("data")
    LastRow = Results.Cells(Results.Rows.Count, "A").End(xlUp).Row
    
    Range("A3:A8").Copy 'start@A3
    Results.Range("B" & LastRow + 1).PasteSpecial xlPasteAll


    Range("B3:B8").Copy 'start@B3
    Results.Range("A" & LastRow + 1).PasteSpecial xlPasteAll


End Sub

Code: Select all

Private Sub CommandButton1_Click()
    Dim LastRow As Long
    Dim Results As Worksheet
    Set Results = Sheets("data")
    LastRow = Results.Cells(Results.Rows.Count, "B").End(xlUp).Row
    
    Range("A3:A" & LastRow).Copy 'start@A3
    Results.Range("B" & Results.Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll


    Range("B3:B" & LastRow).Copy 'start@B3
    Results.Range("A" & Results.Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
    
    Application.CutCopyMode = False
End Sub