Excel VBA Compare two columns put results in a list box

Sub Find_Matches()
 
          Dim CompareRange As Variant, x As Variant, y As Variant
 
          ' Set CompareRange equal to the range to which you will
          ' compare the selection.
 
          Set CompareRange = Workbooks("Software_Inventory"). _
            Worksheets("HeuristicSoftwareReport").Range("A1:A3765")
          ' NOTE: If the compare range is located on another workbook
          ' or worksheet, use the following syntax.
          ' Set CompareRange = Workbooks("Book2"). _
          '   Worksheets("Sheet2").Range("C1:C5")
          '
          ' Loop through each cell in the selection and compare it to
          ' each cell in CompareRange.
 
          For Each x In Selection
              For Each y In CompareRange
                  If x = y Then x.Offset(0, 7) = x
              Next y
          Next x
 
      End Sub

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

 
Sub findamatch()
Dim srvsoftwarerange As Range
Dim heuristicresults As Range
 
Set srvsoftwarerange = ActiveWorkbook.Worksheets("ServerSoftware").Range("a1:a6012")
Set heuristicresults = ActiveWorkbook.Worksheets("HeuristicSoftwareReport").Range("a1:a3770")
 
For Each i In srvsoftwarerange
    
    If i.Value = "" Then
        i = i.Offset(1, 0)
    Else
        i.Value = Application.Substitute(i.Value, Chr(32), "")
        For Each c In heuristicresults
            If i.Value = c.Value Then
                i.Copy Destination:=i.Offset(0, 10)
            End If
        
        Next c
    End If
    
Next i
End Sub

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

Sub findamatch()
Dim srvsoftwarerange As Range
Dim heuristicresults As Range
 
Set srvsoftwarerange = ActiveWorkbook.Worksheets("ServerSoftware").Range("a1:a6012")
'Set srvsoftwarerange = ActiveWorkbook.Worksheets("ServerSoftware").Range("a1:a12")
Set heuristicresults = ActiveWorkbook.Worksheets("HeuristicSoftwareReport").Range("a1:a3770")
'Set heuristicresults = ActiveWorkbook.Worksheets("HeuristicSoftwareReport").Range("a1:a10")
'Set ServerInventory = ActiveWorkbook.Worksheets("ServerInventory")
 
ref1 = 13
 
For Each i In srvsoftwarerange
    
    If i.Value = "" Then
        i = i.Offset(1, 0)
    Else
        'trim the trailing space
        i.Value = Application.Substitute(i.Value, Chr(32), "")
        For Each c In heuristicresults
            If i.Value = c.Value Then
                If c.Offset(0, 2).Value > 6 Then
                i.Copy Destination:=ActiveWorkbook.Worksheets("ServerInventory").Cells(ref1, 7)
                c.Offset(0, 1).Copy Destination:=ActiveWorkbook.Worksheets("ServerInventory").Cells(ref1, 8)
                c.Offset(0, 2).Copy Destination:=ActiveWorkbook.Worksheets("ServerInventory").Cells(ref1, 14)
                ref1 = ref1 + 1
                End If
                                
            End If
        
        Next c
    End If
    
Next i
End Sub
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35: