Remove rows and move data

[dknowles2004]

Please help!! I have a spreadsheet with two rows per product (hundreds of rows). I'm trying to move the values in the second row to Columns D and E of the preceding row. For example,

Rows 3 and 4. Move values in Row 4 to Row 3, Column D and E then delete Row 4. Obviously, each time the row is deleted, the references of the remaining rows will change!!

Then I need to repeat this for all the remaining rows.

Any ideas? I'm desperate.

 

[jindon]

Hi

the code moves data in even row to one above

Sub moveEvenData()
Dim r As Range
Application.ScreenUpdating = False
With ActiveSheet
    For Each r In .Range("a1", .Range("a65536").End(xlUp))
        If r.Row Mod 2 = 0 Then
            r.Resize(1, 2).Cut Destination:=r.Offset(-1, 2)
        End If
    Next
    .Range("a1", "d" & .Range("a65536").End(xlUp).Row).Sort key1:=.Range("a1")
End With
Application.ScreenUpdating = True
End Sub

you don't need to delete the remaining blank rows, just sort then.

rgds,

jindon

 

[jindon]

Hi

Refer to your PM to me
change

    For Each r In .Range("a1", .Range("a65536").End(xlUp)) 
        If r.Row Mod 2 = 0 Then 
            r.Resize(1, 2).Cut Destination:=r.Offset(-1, 2) 
        End If 
    Next

to:

    For Each r In .Range("a1", .Range("a65536").End(xlUp))
        If r.Row Mod 2 = 0 Then
            r.Offset(, 1).Resize(1, 2).Cut Destination:=r.Offset(-1, 2)
        End If
    Next

rgds,
jindon