Wert von darüberliegender Zelle kopieren wenn leer

Sub AuffuellenMarkieren2()
On Error GoTo errorhandler
For Each cell In Selection.SpecialCells(xlCellTypeBlanks)
cell.Value = cell.Offset(-1, 0).Value
Next
Exit Sub
errorhandler:
MsgBox "Keine leeren Zellen vorhanden"
End Sub

Das kopiert den Inhalt der Zelle darüber nach unten wenn die darüberliegende Zelle leer ist.
Funktioniert auch ganz toll, aber wenn ich Zahlen kopiere, die als Text formatiert sind dann bekomme ich nach dem kopieren Zahlen und keine Texte (z.B. Postleitzahlen)
Was muß man ändern um wirklich den Inhalt (evt. mit Formatierung) zu kopieren?
Gruß Lutz