Sub Schaltfläche1_Klicken()
Dim i As Long, loLetzte As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = loLetzte To 2 Step -1
.Rows(i + 1).Resize(96).Insert
Next i
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 2 To loLetzte Step 97
.Range(.Cells(i + 1, 1), .Cells(i + 96, 1)).FormulaLocal = "=" & .Cells(i, 1).Address(0, 0) & " + 1"
.Range(.Cells(i, 2), .Cells(i, 5)).Copy .Cells(i + 1, 2).Resize(96)
Next i
.Range(.Cells(2, 1), .Cells(loLetzte, 1)).Value = .Range(.Cells(2, 1), .Cells(loLetzte, 1)).Value
End With
End Sub
Den Blattnamen mußt du noch anpassen.
Gruß Werner