compare 2 columns and highlight words that don't match then split difference

Option Explicit
Sub HIGHLIGHT()
    Dim myList As New Collection
    Dim myCell, myColl, myObject, myItem
    Dim myKey As String, myarray As String
    For Each myCell In Range("A2", Cells(Rows.Count, 1).End(xlUp))
        If Not myCell.Value = vbNullString And Not myCell.Offset(, 1).Value = vbNullString Then
            myKey = myCell.Value & "~" & myCell.Offset(0, 1).Value
            Set myItem = New Collection
            For Each myObject In Array(myCell.Value, myCell.Offset(0, 1).Value, myCell.Offset(0, 2).Value)
                Call myItem.Add(Item:=myObject)
            Next myObject
            On Error Resume Next
            Call myList.Add(Item:=myItem, Key:=myKey)
            If Err.Number = 457 Then
                On Error GoTo 0
                myarray = myList.Item(myKey)(3)
                myList.Remove myKey
                myarray = myarray & myCell.Offset(0, 2).Value
                Set myItem = New Collection
                For Each myObject In Array(myCell.Value, myCell.Offset(0, 1).Value, myarray)
                    Call myItem.Add(Item:=myObject)
                Next myObject
                Call myList.Add(Item:=myItem, Key:=myKey)
            End If
        End If
    Next myCell
    For Each myColl In myList
        Cells(Rows.Count, "F").End(xlUp).Offset(1, 0).Resize(, 3) = Array(myColl(1), myColl(2), myColl(3))
    Next myColl
    Range("F1:H1").Value = Range("A1:C1").Value
      
End Sub