Exported Report from Quickbooks

This spreadsheet was created from a report in Quickbooks that I've exported. You'll see that in columns A-D, within each row, the account title will be within one of those columns. In row 2, it's column B and in row 3 it's column C. Using VBA, I'd like to move the account title from each line to column A. Any suggestions?

This may not be your ideal solution, but will give you a start.
I have two macros attached. The first one is to delete the empty columns and then once these columns are deleted, the second macro fills in the rows.

Thank you for replying. I started playing around with if then statements, and I came up with a solution. But I like the look of your's. I'll test it out.

Please let me know your final solution