Private Sub CommandButton1_Click()

lastRow = Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To lastRow Step 94
    Worksheets("Sheet1").Rows(i).Copy

    Worksheets("Sheet2").Activate
    lastRowSheet2 = Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row

    Worksheets("Sheet2").Range("A" & lastRowSheet2 + 1).Select

    ActiveSheet.Paste

    Worksheets("Sheet1").Activate


Next i
End Sub