Align 3 columns with 2 columns of matching data

Hi,

I'm a newb and I'm sure this has been done before so bare with me.

I need help to align first two columns and sort adjacent 3. I'm able to align using =IF(ISERROR(MATCH(A3,$DF$1:$DF$330,0)),"",A3), however sorting is eluding me. See below - I'm only posting a portion of the sheet because it has some 3000+ rows. Thanks for your help.

Item Item Qty. on Hand Minimum On Order
021-013 021-029 1 1 0
021-015 110-014 4 4 0
021-016 121-009 2 2 0
021-028 122-602 58 75 26
021-029 137-390 0 8 11
110-014 137-452 2 3 0
121-001 137-457 22 26 0
121-007 145-951 5 5 0
121-009 148-302 1 2 0
122-602 156-001 1 2 0
137-390 156-002 2 2 0

I have made a macro for similar function before. You can try and see if this suits your needs.

Sub Sort()
    'Sorts data from column B onwards, number of columns of data is determined by first row (Header)
    'Reads column A, searches column B, then sorts accordingly to reference in column A
    'If what in column A is not found in column B, 1 blank row will be inserted.
    Dim lastc As Integer
    Dim notfoundcount As Double
    Dim r As Long
    Dim X As Integer
    Dim Y As Long
    
    lastc = 2
    lastc = ActiveCell.SpecialCells(xlLastCell).Column
    
    Dim last As Double
    last = ActiveCell.SpecialCells(xlLastCell).row
    
    notfoundcount = 0
    Application.ScreenUpdating = False
    For loopread = 2 To last
        If Range("A" + CStr(loopread)).FormulaR1C1 <> "" Then
            If Trim(Range("A" + CStr(loopread)).FormulaR1C1) <> Trim(Range("B" + CStr(loopread)).FormulaR1C1) Then
                For loopsearch = loopread To (last + notfoundcount)
                    If Trim(Range("B" + CStr(loopsearch)).FormulaR1C1) = Trim(Range("A" + CStr(loopread)).FormulaR1C1) And loopsearch <> loopread Then
                        Range("B" + CStr(loopsearch) + ":" + GetCol(lastc) + CStr(loopsearch)).Cut
                        Range("B" + CStr(loopread)).Insert Shift:=xlDown
                        Exit For
                    End If
                    If loopsearch = (last + notfoundcount) Then
                        'not found, insert blank row and highlight red
                        Application.CutCopyMode = False
                        Range("B" + CStr(loopread) + ":" + GetCol(lastc) + CStr(loopread)).Insert Shift:=xlDown
                        Range("B" + CStr(loopread) + ":" + GetCol(lastc) + CStr(loopread)).Interior.Color = 255
                        notfoundcount = notfoundcount + 1
                    End If
                Next
            End If
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Public Function GetCol(ByVal Coln As Integer) As String
    Dim times As Integer
    Dim col1 As Integer

    If Coln > 256 Then Exit Function
    If Coln > 26 Then
        times = Int(Coln / 26)
        col1 = Coln - times * 26
        If Not col1 = 0 Then
            GetCol = Chr(64 + times) & Chr(64 + col1)
        Else
            GetCol = Chr(64 + times - 1) & Chr(90)
        End If
    Else
        GetCol = Chr(64 + Coln)
    End If
End Function

Edit: this was made very long ago before I discovered about Cells() object/method, so I was using a separate function to convert Column numbers to alphabets