kolom scannen bij lege cel rechter cel hierin kopieren

[Numborero]

Hallo Allemaal,

Hoop dat jullie mij kunnen helpen?

Ben opzoek naar een stukje code dat een colom scant en dan als hij een lege cel tegen komt de cel rechts van de lege cel kopiert en in de lege cel plakt.
Hierna moet de code weer doorgaan tot aan de laatse rij.


Kunnen jullie helpen?

Groet,

Numbro

 

[HSV]

Hoi,

Sub hsv()
On Error Resume Next
 Columns(1).SpecialCells(4) = Columns(1).SpecialCells(4).Offset(, 1).Value
End Sub