Leere Zellen einfügen

das Forum war uns schon eine grosse Hilfe. Jetzt fragen wir uns ob unser Makro nicht auch schneller sein könnte. Wir haben u. a. Werte in einer Spalte, und möchten zwischen diesen je eine Leerzelle einfügen. Bisher geht das so:

Range("E9").Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(2, 0).Select
Do Until IsEmpty(Selection)
Selection.Insert Shift:=xlDown
ActiveCell.Offset(2, 0).Select

Loop

End Sub

Da das ganze für mehrere Spalten mit bis zu 384 Werten gemacht werden muß dauert es entsprechend lange. Alle Spalten gleichzeitig zu bearbeiten ist nicht möglich da deren Beginn variabel ist.

Besten Dank schon mal

Konst und Dirk