Hello,

I have the following formula built that moves the cell content but I have the following issues I can not seem to solve. In the form below I am trying to move the contents from column "B" to Column"A" if the value begins with "100". This I was able to accomplish with the following macro. The issue I am having is that I need the data to move over one column and down one row to where the contents of cell B has a value. Further more IF the contents of "B" has multiple cells with a value the data that was moved to "A" needs to be duplicated down. I also need to delete the first column that has a qty "D" but the item "B" is null. Not all rows will have an additional item and some rows will have more than two items. This is unpredictable.

What it looks like now when the current Macro is run:

A B C D
PO Item Description Qty
1000022
184D1822P001 Green 6
184D1822P001 BIG 10
16


1000070
184D1387P004 840
840


Private Sub CommandButton22_Click()

Dim row As Long

    For row = 2 To 40000
        ' Check if "save" appears in the value anywhere.
        If Range("B" & row).Value Like "*100*" Then
            ' Copy the value and then blank the source.
            Range("A" & row).Value = Range("B" & row).Value
            Range("B" & row).Value = ""
        End If
    Next
End Sub
Please let me know if there is anything I can do to clarify further and thank you for your help. I have tried researching and looking everywhere.