inhoud cellen verplaatsen

[egltje]

ik heb een spreadsheet Bekijk bijlage overzicht uren.xlsx waar af en toe gegevens op een volgende lijn staan (zie lijn 3 en 11). Deze lijn begint telkens met een lege cel.
bijvoorbeeld:
rij 1 is gevuld met gegevens
rij 2: 1ste cel is leeg, cel 2 en cel 3 staan gegevens

ik wil nu cel 2 en cel 3 verplaatsen achter de laatste cel van de voorgaande rij.

hoe moet ik dit juist definiëren?
dank bij voorbaat

 

[HSV]

Zo zou het kunnen.

Sub hsv()
Dim cl As Range, i As Long
For i = Columns(2).SpecialCells(2).Count To 1 Step -1
   Set cl = Cells(i, 1)
If cl = "" Then
    cl.Offset(-1, 5).Resize(, 2) = cl.Offset(, 1).Resize(, 2).Value
    cl.EntireRow.Delete
  End If
Next i
End Sub

 

[egltje]

U bent geweldig.
Bedankt!