VBA: Copy data from every other row, paste it in previous row, delete copied row

Nice one John..Did not see that coming...
perhaps this could also solve?

For i = .Cells(Rows.Count, "B").End(xlUp).Row To 2 Step -2