Cellen vullen met waarde

[alexander321]

In bijgevoegd voorbeeld bestand heb ik een aantal klantgegevens.
Niet op iedere rij is ID en datum gevuld.
Is het mogelijk met VBA om de lege cellen steeds te vullen met het waarde van de cel erboven mits leeg?

Gr Alexander.

Bekijk bijlage Doorkopieren.xlsx

 

[HSV]

sub hsv()
on error resume next
range("a2:a" & cells(rows.count, 2).end(xlup).row).specialcells(4) = "=R[-1]C"
end sub

 

[alexander321]

Harry, top!