Creating a macro that will cut odd numbered rows and paste into the row above

[alef1234]

Hi. I have an excel sheet with about 4,500 rows of data. For some reason the paste I received from the web splits each row on the web into 2 rows in excel. I am trying to take the data in row 3 (Cells A3 through E3) and move into row 2 (Cells G2 through K2). Then I would like the macro to either delete row 3 or go to row 5 and do the same cut and past of that data into the row above. Basically I would like themacro to do this for every odd row through row 4,500. Is this possible. Thank you.

 

[j_unsuitable]

Hey,

there probably is a way to do it way faster, but you could give this a try:

Sub MergeRows()
Dim LastRow As Long, i As Long
Application.ScreenUpdating = False

LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = LastRow To 3 Step -2
    Range(Cells(i - 1, 7), Cells(i - 1, 11)).Value = _
    Range(Cells(i, 1), Cells(i, 5)).Value
    Rows(i).EntireRow.Delete
Next i

Application.ScreenUpdating = True
End Sub

Julian