Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

Dim i As Long

For i = 2 To Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))

b = Application.WorksheetFunction.CountA(Sheet2.Range("A:A")) + 1

For x = 2 To 5

For c = 0 To 3

Sheets("Sheet" & x).Range("A" & b).End(xlToLeft).Offset(0, c).Value = _

Sheet1.Cells(i, c + 1).Value

Next c

Next x

Next i

Application.ScreenUpdating = True

End Sub