macro to fill blank cells with location

Hi,

I am trying to build a macro to fix a report so that location numbers will be beside all costs associated. It is likely best to display the data I have, and what I am looking to do.

Below I have provided an unedited report which is an example of what I am working with. Cell A1 will provide the location name (starting with 604 in example), and will have 1 to 7 rows of text in column B associated with that location, while column A will be blank until a there is a new location name. I would like to fill column A with location number beside each line of text (see edited report further below).

There is a blank row between each change in location name, then it will restart with a new location number and several rows of text.I do not need to keep the blank rows, but can anyone help with vba code to auto-fill column A with the location names?


UNEDITED REPORT
604 Text
(blank) Text
(blank) Text

605 Text

606 Text
(blank) Text


EDITED REPORT
604 Text
604 Text
604 Text

605 Text

606 Text
606 Text