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

a workbook is easier to manipulate than a picture - please see big yellow banner - upload workbook - help us to help you.

Try such code:

Please Login or Register  to view this content.

BTW: if you can accept also other than macro solutions, like:
1) as you are using excel 365, and if your real data contain also headers (probably there are some) you can use power query (det and transform data) and fill-down emplty values
2) a standard "quick-manual") solution could be to mark the whole column with empty cells, use "Go-to" (Ctrl+G) and in dialog Special -> Empty cells. Note address of first empty cell. Say it's A15. In formula bar write a formula referring to cell above, so =A14 and commit it not by enter but by Ctrl+Enter. Now select again whole column, copy it and paste special as values (in the same place). Longer to write than to do.

Hi, Fenge. Try the following macro:

Please Login or Register  to view this content.