Not a worksheet formula, but something to consider
Option Explicit
Sub drv()
Call CargoNumbers(Range("B:C"), Range("F:F"))
End Sub
Sub CargoNumbers(DescripPkgType As Range, CargoLogic As Range)
Dim r1 As Range, r2 As Range
Dim C As Collection
Dim iIn As Long, iIndex As Long
Set C = New Collection
Set r1 = DescripPkgType.SpecialCells(xlCellTypeConstants, xlTextValues)
Set r2 = Intersect(r1.EntireRow, CargoLogic)
For iIn = 1 To r1.Rows.Count
If r1.Cells(iIn, 1).Value <> "DESCRIPTION" And Len(r1.Cells(iIn, 1).Value) <> 0 Then
On Error Resume Next
C.Add r1.Cells(iIn, 1).Value & "#" & r1.Cells(iIn, 2).Value, r1.Cells(iIn, 1).Value & "#" & r1.Cells(iIn, 2).Value
On Error GoTo 0
End If
Next iIn
For iIn = 1 To r1.Rows.Count
If r1.Cells(iIn, 1).Value <> "DESCRIPTION" And Len(r1.Cells(iIn, 1).Value) <> 0 Then
For iIndex = 1 To C.Count
If C(iIndex) = r1.Cells(iIn, 1).Value & "#" & r1.Cells(iIn, 2).Value Then
r2.Cells(iIn, 1).Value = iIndex
Exit For
End If
Next iIndex
End If
Next iIn
End Sub