Gruppierung mit For-Schleife

Sub Makro1()
' Makro1 Makro
Rows("1:1").Select
ActiveWindow.LargeScroll Down:=7
Rows("1:220").Select
Selection.Rows.Group
Range("A1").Select
ActiveWindow.LargeScroll Down:=8
ActiveWindow.SmallScroll Down:=-33
Rows("221:221").Select
ActiveWindow.LargeScroll Down:=7
Rows("221:440").Select
Selection.Rows.Group
ActiveWindow.SmallScroll Down:=9
ActiveWindow.LargeScroll Down:=8
ActiveWindow.SmallScroll Down:=-27
Rows("441:441").Select
ActiveWindow.LargeScroll Down:=7
Rows("441:660").Select
Selection.Rows.Group
ActiveWindow.SmallScroll Down:=9
End Sub

Sub gruppierung()
Dim i As Variant
Dim wks As Workbook
With wks
For i = 1 To 5271 Step 220
Rows(i & " : " & i).Select
Rows(i & " : " & i + 220).Select
Selection.Rows.Group
Next
End With
End Sub