Macro en excel

Hola hace tiempo me ayudaron con una macro para excel.

Intento que todas las celdas que se queden vacías, se "autorellenen" con una macro, siempre respetando la misma fila.

Me ayudaron con esto:

?Sub ajustes()
For Each celda In Selection
ubica = celda.Address
contara = Application.WorksheetFunction.CountA(Range(ubica),Range(ubica).End(xlToRight))
If celda.Value = "" And contara > 0 Then
celda.Select
Selection.End(xlToRight).Select
Range(Selection, Selection.End(xlToRight)).Cut Destination:=Range(ubica)
Range(ubica).Select
End If
Next
End Sub

En principio funciona, pero llega un momento que "peta" no responde...

podéis ayudarme???