Excel VBA - Aufteilen einer Tabelle auf mehrere Blätter

Eine Tabelle enthält die Daten von verschiedenen Filialen. Sie befinden sich untereinander. Pro Filiale gibt es fünf Zeilen Daten. Für die Berechungen sollte jedoch jede Filiale eine eigene Tabelle erhalten.
Mit einer VBA Makro kann diese Aufteilung automatisiert werden.


Makro
Die Zelle A1 ist selektiert.
Der Loop läuft so lange, bis die nächste erste Zelle der nächsten Zeile leer ist.

Sub SplitTable()
'
' SplitTable Makro
'
Do While Not IsEmpty(ActiveCell.Offset(1, 0))
Rows("1:5").Select
Selection.Cut
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Sheets("Umsatz").Select
Rows("1:5").Delete
Loop
End Sub

Nach der Makro sehen die neu erstellten Tabellen folgendermassen aus: