Merge below blank cells with filled one

[sushilkadam]

I want to merge the below blank cells with the upper cell data.

For example my data is as below

A1	Doc 01
A2
A3
A4	Doc 02
A5
A6
A7
A8	Doc 03
A9
A10

<tbody>
</tbody>

I have got a code for merging every nth row but the problem is my data is uncertain, I mean blank cells are after 3^RD row or may be after 4^th or 5^th row.
In above example
A1 to A3 is Doc 01 (total 03 rows)
A4 to A7 is Doc 02 (total 04 rows)

I want to vba code to get the below result

I require it as below

Doc 01

Doc 02

Doc 03

<tbody>
</tbody>

Can anyone tell me how can I put the range of cells to be taken in calculation?