Office: (Office 2013) Excel Wörter nach oben verschieben

Hallo, ich bräuche eure Hilfe, ich möchte die Zahlen die unten zu sehen sind bei Bild 1 in der Spalte D,E,F,G nach oben verschieben, so dass alles in einer Reihe ist wie auf Bild 2 zu sehen ist.
Dass soll immer automatisch gemacht werden, eventuell mit einem Makro.
Die zukünftigen Dateien werden nämlich auch so ausschauen (eventuell mehr Spalten!), da das Programm das wir verwenden leider fehlerhaft exportiert und das so durcheinander bringt.
Also bräuchte ich ein Makro, dass alles nach oben verschiebt, bis es nicht mehr weiter nach oben verschoben werden kann, das wäre zumindest meine Lösung, das Resultat soll dann das Bild 2 sein.
Beachtet bitte, dass die zukünftigen Dateien, bei denen ich das auch machen muss eventuell mehr Spalten haben kann also z.b mehr Zahlen wie D,E,F,G.
Ich bin schlecht im programmieren, darum kann ich das nicht machen. Vielleicht gibt es auch eine Funktion dafür?
Ich bitte um eine schnelle Hilfe!
Infos: Office 2013, Windows 10

LG



Bild 1:




Bild 2:

 

Hi,

dazu reicht folgende Codezeile

Code:

    Columns("A:F").SpecialCells(xlCellTypeBlanks).Delete

Bis später,
Karin

 

Dankeschön :)