Excel 2013 - Gibt es ein Makro zum Sortieren und Teilen des Inhalts einer Kalkulationstabelle?

Ich weiß, dass es viele ähnliche Fragen zu diesem Thema gibt, aber keine scheint genau zu passen. Ich habe eine grundlegende Lagerliste und möchte die Bestandsaufnahme beschleunigen. Ich möchte also ein Makro erstellen, das die folgenden Aufgaben erfüllt:

Wählen Sie einen Bereich und sortieren Sie die Spalten E, F und C. Fügen Sie an der Spalte E eine Wertänderung ein und fügen Sie eine leere farbige Zeile ein.

================================================== ==========================================

Ich bin also sehr neu in VBA, habe aber ein 3-teiliges Makro erstellt:

Macro1 - Sortiert die Daten Macro2 - Fügt bei Wertänderung eine leere Zeile ein. Macro3 - Wird einer Schaltfläche zugewiesen, dies führt Macro1 und Macro2 aus

Jetzt muss ich nur noch die leere Zeile farbig ändern.

Sub sort() Rows("5:5").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select ActiveWorkbook.Worksheets("HEAT SEAL").sort.SortFields.Clear ActiveWorkbook.Worksheets("HEAT SEAL").sort.SortFields.Add Key:=Range( _ "E5:E407"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("HEAT SEAL").sort.SortFields.Add Key:=Range( _ "A5:A407"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("HEAT SEAL").sort.SortFields.Add Key:=Range( _ "F5:F407"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("HEAT SEAL").sort .SetRange Range("A5:J407") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub  Sub Split() rw = 5 myval = ActiveSheet.Cells(rw, 5).Value While myval <> "" While myval = ActiveSheet.Cells(rw, 5).Value rw = rw + 1 Wend ActiveSheet.Rows(rw).EntireRow.Insert rw = rw + 1 myval = ActiveSheet.Cells(rw, 5).Value Wend End Sub  Sub run() Application.run "STOCK1.xls!sort" Application.run "STOCK1.xls!Split" End Sub