VBA to AutoFill down dynamic columns

[eorydc]

I'm looking for a VBA to AutoFill down the contents in column B. It's difficult to describe what I am looking to do, but essentially I want to AutoFill the contents of cell Bn to the next row with text and continue to the end of the sheet. Is this possible in one Macro? Attached is a sample of the raw data. Thank you.