Move every 2nd row to the end of previous row

[clauspeter]

App 2500 rows of data. Yellow A2,B2,C2,D2 must be moved to grey E1,F1,G1,H1. Do I type the instructution/formula behind fx
Thank you very much and regards ...peter

 

[smozgur]

Welcome to the MrExcel Message Board!

I assumed the empty rows will be deleted. In that case, please try the following VBA code as it is.
Otherwise, if you'd like to keep the empty rows instead, disable the rw.Delete xlShiftUp line, and enable the next line, rw.ClearContents in the code.

Sub doCleanUp()
Dim rng As Range
Dim rw As Range
    Set rng = ActiveSheet.Cells(1, 1).CurrentRegion
    For Each rw In rng.Rows
        If rw.Cells(1, 1).Value = "" Then
            rw.Offset(-1).Offset(, rng.Columns.Count).Resize(, rng.Columns.Count).Cells.Formula = rw.Cells.Formula
            rw.Delete xlShiftUp
            'rw.ClearContents
        End If
    Next rw
End Sub

 

[clauspeter]

Thanks you sir

 

[smozgur]

Thanks you sir

You're welcome.

If the provided code/method helped you, please mark the post that answered your question as the solution by using the little circled checkmark right next to that post. This way, it will help future readers.

Otherwise, if the provided solution didn't help, then please let us know by explaining how the provided solution didn't work for you.