vba problem

für folgenden code bräuchte ich eine erweiterung:

Sub faktor()
Dim zelle As Range
i = InputBox("faktor eingeben")
For Each zelle In Selection
zelle.Value = i * zelle.Value
Next zelle
End Sub

Wenn der Wert der Zelle in der Selektion = "" soll die betreffende Zeile gelöscht werden, ansonsten die zelle mit dem faktor der msg box multipliziert werden. Dann die nächste zelle prüfen und so weiter ...

Danke und gruß
michael