Delete cells if blank, shift left until data found

Hi guys,

I have a large dataset (4000 rows) that I have imported from the web, but unfortunately it has inserted blank cells in front of my data such the last row has data beginning in column A, the second last in column D, the third last in column G, etc. So in each ascending row the data begins three columns further to the left than the data in the row below it. This is super annoying.

I would simply like a macro that begins in cell A1, deletes the cell if it is blank, then moves to cell A2 (which would now be A1), deletes it if blank, cell A3, etc until it finds a non-blank cell, then it moves to A2 and loops through all the rows until it finds no more data. An additional complication: Some of the rows are empty and these can be ignored by the macro. When the cells are deleted, the cells obviously need to be shifted left.

Any help would be greatly appreciated.
example.xlsx

Hi Dave,

Thanks that worked pretty well. One tiny problem which I didn't foresee. Occasionally my data contains blank cells in the data. (e.g. AA, AA, AA, blank, AA). I want these to be retained. So if the row looked like:
blank, blank, blank, AA, AA, AA, blank, AA
I would want the macro to delete the first three blank cells, but cease once it finds non-blank cells, such that it returns, AA, AA, AA, blank, AA

I'm sure this is possible, but I'm a bit of a rookie here.

Thanks again.

I get Runtime Error '13': Type mismatch

And I'm not sure why. Sorry to be a pain

Thanks guys, I'm away on holiday for five days now without access to my files. I'll have a look again when i get back. Thanks for all the help.