Help with VBA Looping

Try this, it worked on a mocked up version of how I think the data is laid out.

Dim rng As Range

    Set rng = Range("A3")

    While rng.Value <> ""

        rng.Copy rng.Offset(-1)
        rng.Offset(2, 1).Copy rng.Offset(-1, 1)
        rng.Offset(2, 3).Copy rng.Offset(-1, 3)
        rng.Offset(1, 4).Copy rng.Offset(-1, 4)
        rng.Offset(3, 5).Copy rng.Offset(-1, 5)
        rng.Offset(4, 7).Resize(, 178).Copy rng.Offset(-1, 7)
        rng.Resize(5).EntireRow.ClearContents

        Set rng = rng.Offset(5)
    Wend

    Range("A2", Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete