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

Hi robertguy,

Your post is a bit confusing.

Do you actually mean to hide the empty rows, Filter or what Data would you like to be filled in where?

Winon,

thanks for your reply and sorry for the confusion. What I want is for the missing data to be filled in automatically by the macro.

N.B. the is no consistency with each master code as there could many or no 'Sub Codes', 'Amount', 'PM', ‘Finish Date’

Please see example spreadsheet attached where there are two tabs 'Before Macro' and 'After Macro'

Regards


Rob

Give this a try

Please Login or Register  to view this content.

Mike,

thanks for the code it work as requested, however, if I want to use this code in other spread sheets what do I need to change to do the same for data in columns C and D etc

Any help would be greatly appreciated

Rob

Something like this

Please Login or Register  to view this content.

Mike,

thanks for the code it works as requested, sorry for the late feed back I thought I had already updated my post

thanks again

Rob