Filling in the gaps

Hello , I hope this makes sense, I have tried IF statements in VBa with no joy , maybe someone here knows better.

I need a small efficient bit of VBa, that will drag / fill the empty rows below it until it the next value, and then the same occurs. (column A)

There should be a cut of point maybe of say 9000 rows , so it doesn't go on forever.

Kind Regards

Capture.JPG