Question

I have some data that has been imported from elsewhere. the sheet as you see can be solved mainly by moving the data from F and G up a single row, the problem comes where I need on row 10 through 13, which will be after the data has been moved up one will be 10 through 12. I need to have it where the data on 9 through cells A through D copy down till the end of row F. Then continue down and do the same if any other rows have the same “problem”…

I hope I am being clear, if not please ask, but can someone help me here? I thought about using the concept of till the end copy, but I can see that not working because not all cells need it… it only needs to happen when the opportunity arises.

Attached a link to the sheet in hopes to clarify the problem.

Link to Workbook here

Answer 1

I just tested this code with the data you provided. Should be good, based on data in worksheet. Of course, may need slight adjustments if data scope changes.

Sub clean_data()

Dim wks As Worksheet
Dim cel As Range

Set wks = ThisWorkbook.Sheets("Imported Data")

With wks

    'first bring columns F:G up to match their line
    For Each cel In Intersect(.UsedRange, .UsedRange.Offset(1), .Columns(6))

        If cel = vbNullString And cel.Offset(, -2) <> vbNullString Then
            .Range(cel.Offset(1), cel.Offset(1, 1)).Copy cel
            cel.Offset(1).EntireRow.Delete
        End If

    Next

    'now fil columns A:D to match PO Date and PO#
    For Each cel In Intersect(.UsedRange, .UsedRange.Offset(1), .Columns(1))

        If cel = vbNullString And cel.Offset(, 5) <> vbNullString Then
            .Range(cel.Offset(-1), cel.Offset(-1, 3)).Copy cel
        End If

    Next

End With

End Sub