```
Sub Pull_Matches()
Dim rowA As Long
rowA = 2
Dim rowC As Long
rowC = 2
Dim rowE As Long
rowE = 2
Dim crit As Integer
crit = 10 'Criteria
' Assumption: Row 1 are for labels, data starts in Row 2
' Match report will be in Column E (Company) Column F (amount)
Dim companyA As Range
Set companyA = Sheet1.Cells(rowA, 1)
Dim companyC As Range
Set companyC = Sheet1.Cells(rowC, 3)
Dim companyE As Range
Set companyE = Sheet1.Cells(rowE, 5)
Do Until companyA.Value = vbNullString
rowC = 2
Set companyC = Sheet1.Cells(rowC, 3)
Do Until companyC.Value = vbNullString
If Mid(companyA.Value, 1, crit) = Mid(companyC.Value, 1, crit) Then
Select Case companyA.Offset(0, 1) < companyC.Offset(0, 1)
Case True
companyE.Value = Mid(companyA.Value, 1, crit)
companyE.Offset(0, 1) = companyA.Offset(0, 1)
Case Else
companyE.Value = Mid(companyA.Value, 1, crit)
companyE.Offset(0, 1) = companyC.Offset(0, 1)
End Select
rowE = rowE + 1
Set companyE = Sheet1.Cells(rowE, 5)
Exit Do
End If
rowC = rowC + 1
Set companyC = Sheet1.Cells(rowC, 3)
Loop
rowA = rowA + 1
Set companyA = Sheet1.Cells(rowA, 1)
Loop
End Sub
```