Option Explicit
Sub copy_rows_to_new_sheets()
'Erik Van Geit
'051215
Dim LR As Long
Dim I As Long
Dim SourceSheet As Worksheet
'edit only these lines
Const FR = 2 'first row
Const GroupRows = 4 'number of rows whiwh will stay together
Set SourceSheet = Sheets(1)
'action
LR = Cells.Find("*", [A1], xlFormulas, xlPart, xlByRows, xlPrevious, False, False).Row
Application.ScreenUpdating = False
For I = FR To LR Step GroupRows
SourceSheet.Rows(I & ":" & I + GroupRows - 1).Copy
Sheets.Add
ActiveSheet.Paste
ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteValues
Next I
Application.ScreenUpdating = True
End Sub