wenn zellen leer dann kopiere ...

habe eine excel vba hürde, die ich nicht packe. habe ein excel sheet wo die spalten A, B, C und D befüllt sind. manchmal tritt der fall auf, das z.B. Zelle A8, Zelle B8 und Zelle C8 leer sind und nur D8 befüllt ist. in diesem fall soll zelle D8 nach D7 verschoben werden (cut&paste) und die nun enstandene leere zeile 8 gelöscht werden (wie man leere zeilen löscht weiss ich inzw.).

mein ansatz wäre:

====================
With Worksheets("Tabelle1")
iRowL = .Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL

If Range("A1") = "" And Range("B1") = "" And Range("C1") = "" Then

?????????????

Next iRow
End With
====================

mit der bitte um hilfe, thanx im vorhinein
thomas