Fill in blank cells if adjacent cell has value, then do for next set of data

[logistician]

Hi guys. I'm trying every conceivable angle I can think of in vba and coming up empty. What I have is a spreadsheet similar to this:

Column A Column B

1. 1234567
2. 2345678
3. 3456789
4. 4567890 A0001
5.
6. 9876543
7. 9876543
8. 9876543
9. 1234578
10. 3456789 A0002

What I would like to do is to fill in B1:B3 with A0001 and B6:B9 with A0002. The number of rows in each set of data will vary, but the identifier (A000X) will always be located in the row in column B adjacent to the last entry for that set of data in column A and there will always be empty cells between data sets. The number of data sets will also vary.

Any help would be greatly appreciated. Thanks

[Bernie Deitrick]

Easy with this:

Please Login or Register  to view this content.

[logistician]

You nailed it, Bernie. Beautiful code, too! Thanks a lot.

[JOHN H. DAVIS]

Too late, but FWIW.

Please Login or Register  to view this content.

[logistician]

Thanks, John. Yours worked like a charm, too. And in two lines -- cool.

[Bernie Deitrick]

Here's a one liner

Please Login or Register  to view this content.