Macro to fill in missing blanks with data in a column

Hi,

I have a worksheet with data in column A and column B, the data in column A is a 'Code' e.g. 1234 and the data is colum B is a 'Businnes Unit' e.g. Head Office . My problem is that the corresponding rows underneath do not have the assciate 'Codes' and 'Business Units' so there are gaps until the next 'Code' and Business Unit.

e.g row 1 - 1234 Headoffice



row 9 - 2244 - South Office


row 33 - 6755 - East Office

Could any one please advise me of the macro code to automatically file in the blanks i.e. Codes and Businees Units

Any assistance would be greatly appreciated


Many thanks in advance



Rob

N.B Excdl version 2007