Dim partNo, fabNo As String
    Dim l, r As Range
    partNo = Mid(lstCustProps(1, 2), 1, 6)
    fabNo = Mid(lstCustProps(5, 2), (InStr(lstCustProps(5, 2), "@") + 1), 6)

    With Sheet1.Range("E2:E56")

        Set l = .Find(what:=partNo, LookAt:=xlWhole, LookIn:=xlValues)

        If l.Offset(, -2) <> fabNo Then

            Do

            Set l = .FindNext(l)

            MsgBox l.Offset(, -2) & " - " & l

            Loop While l.Offset(, -2) <> fabNo

        Else

            MsgBox "Whoever coded this wasn't too bright."

        End If

        Sheet1.Cells(l.Row, "K").Value = lstCustProps(2, 2)
        Sheet1.Cells(l.Row, "L").Value = lstCustProps(3, 2)
        Sheet1.Cells(l.Row, "M").Value = lstCustProps(4, 2)

    End With