Move every other cell in a column to row above it, then delete the previous row-help

I have a spreadsheet that I need to rearrange to improve readability.
I have an example attache, which is easier to understand than describing it, but I'll try:

I want to start in a1, move to a2
copy a2 to b1
delete line 2 (the previous lrow 3 now becomes row 2
if a2 > 0.01, skip it and
move & select cell a3
... and repeat the above logic, on the next series of cells...
eg
copy a3 to b2
delete line 3 (the previous lrow 4 now becomes row 3
if a3 > 0.01, skip it and
move & select cell a4
...and repeat the sequence again.

The code that I wrote partially works - When I add in the commented out lines, it does not do what I described above.
Could someone show me the error of my ways?

Please Login or Register  to view this content.

The code with the lines commented out, works to select, and move the cells in each row..when I uncomment the code that checks and skips a row, it does not behave the way I intended.

Any help is appreciated.

Best regards,
J

Please Login or Register  to view this content.