VBA help with filling empty rows with data

[dilla1988]

Hello,
I'm new and I'm not an expert on VBA and macros.

I have a file that has about 55000 rows and I need to sort the data out and get them out on a csv file that has its own format.

Now my data look like this.


fgs dfsdf sdfs
GSD DSF dfgf



2 5 7 7 9 0 0 6
2 5 7 7 9 0 0 52
2 5 7 7 9 0 0 52

2 5 7 7 9 0 0 52
2 5 7 7 9 0 0 51
2 5 7 7 9 0 0 52
2 5 7 7 9 0 0 54

2 5 7 7 9 0 0 54
2 5 7 1 9 0 0 54
end


Now imagine the numbers are in consecutive cells. See the empty row between numbers. I want a code where it searches through the second half of the data, and check for empty row, pick the entry from top , insert in that empty space and loop till end.

so it would look like:

fgs dfsdf sdfs
GSD DSF dfgf



2 5 7 7 9 0 0 6
2 5 7 7 9 0 0 52
2 5 7 7 9 0 0 52
fgs dfsdf sdfs
2 5 7 7 9 0 0 52
2 5 7 7 9 0 0 51
2 5 7 7 9 0 0 52
2 5 7 7 9 0 0 54
GSD DSF dfgf
2 5 7 7 9 0 0 54
2 5 7 1 9 0 0 54
end

Please help me out guys

thanks a lot

 

[tyger0951]

What is it that you want the code to do with these two consecutive blank cells.

 

[dilla1988]

hey tyger,

sorry for the late response.

I want to keep one empty row if the code finds more than 1 empty row. so for example, if 3 empty rows found it would delete any of the 2 empty so we're left with one row. if found 2 empty rows just one would be deleted.

thanks