Macro needed to copy/paste cell if cell below is blank, if not skip

[rguerrieri]

I would appreciate any help with writing a macro that took a 10,000 row spreadsheet and worked some copy/paste magic.

I have spreadsheet example with 2 tabs. one is original data download and the second is what it should look like after the macro is run.

I basically need the macro to do following:

Start R1C1
IF text is in that cell, AND R2C1 is blank, then COPY cell text in R1C1 AND Then Paste text to R2C1
IF R2C1 is not blank, move down 1 row
MOve back up # of cells and DELETE entire R1
Go to next cell below, IF blank, then paste text from R2C1
Keep going down rows until macro hits another cell with text containing "total"
Move active cell to next ROW
End copy/paste routine


THEN auto rerun same routine as you go down spreadsheet