Macro für Excel

Hi,

ich habe bisher nur den Macrorecorder verwendet und bin leider nicht fit im programmieren. Ich würde gerne folgendes Problem via Macro lösen:

Ein Beispiel meiner Ausgangsdatei in Excel:

Als Endergebniss sollen aus der Ursprungsdatei folgende Einzelmappen erzeugt werden:




sprich die ersten beiden Zeilen bleiben immer unverändert als Start + ein Zeilenblock. Die Textblöcke sind immer durch eine Leerzeile getrennt.

Schoneinmal besten Dank für Eure Hilfe!

Philipp

Sub Sort()
Range("A3:C65536").Select  
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Key2:=Range("B3") _  
    , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
    False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
    :=xlSortNormal
Range("A3").Select  
End Sub