Delete Every Other Range

I have a list of items that are 26 columns deep and about 600 rows long. A copy of that list, with edits to the data, is to the right of the first list. (A1:Z1 original record, AA1:AZ1 edited record)

The format I need it in is:

A1:Z1 = Original Record 1
A2:Z2 = Edited Record 1
A3:Z3 = Original Record 2
A4:Z4 = Edited Record 2

So far I've attempted this by adding a blank set of cells in the places that the edited record will go. Then, I tried to create a macro that selects A2:Z2, A4:Z4, A6:Z6.... and so on. I did this by creating a list and copying into word then recopying into the VBA so it show up as:

Please Login or Register  to view this content.

But I get a syntax error on with a yellow arrow that points at -> Sub TreeFiddy()

I have no idea what this means. If anyone can shed some light on a better way to do this or help me fix the code I did write, I would be very grateful.

Thank you taking the time to check out this problem.

Okay I think I solved my problem with the same way I inserted blank rows. By adding the new list to the bottom of the old list, inserting a column to the left of the now 1200 record list. Putting numbers 1-600 next to the original records and then 1-600 starting at the edited records, sort by the number column lowest to highest and it auto sorted.


If anyone else would like to add how to do this in VBA it would still be good to know! Thanks.