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?