Script - jämföra kolumner

Hej!
Jag har fått ett litet problem med ett ett script för excel.
Jag har 2 kolumner, c:a 40.000 rader vardera som ska jämföras.
Att köra koder i cellerna tar för mycket kraft så det måste (tror jag) bli ett VB-script.
Jag har hittat ett par alternativ men den här är den enda som jag fått att fungera med normal datakraft.

 Option Explicit

Sub Jamfora_Kolumndata_1()

   '© 2003 Alla rättigheter XL-Dennis

   Dim rnKalla As Range, rnJamfora As Range, rnCell As Range, rnHitta As Range

 

   Application.ScreenUpdating = False

   With ActiveSheet

      Set rnKalla = .Range(.Range("A2"), .Range("A65536").End(xlUp))

      Set rnJamfora = .Range(.Range("B2"), .Range("B65536").End(xlUp))

   End With

   For Each rnCell In rnKalla

      Set rnHitta = rnJamfora.Find(What:=rnCell, LookIn:=xlValues, Lookat:=xlWhole)

      If Not rnHitta Is Nothing Then rnCell.Offset(0, 2) = rnHitta.Value

   Next rnCell

   Application.ScreenUpdating = True

End Sub

Här får jag ut värden som finns även i den andra kolumnen. (oavsett vilken rad)

Problemet:
Jag vill vända på det och få ut dom värdena som INTE finns i andra kolumnen.

Tacksam för hjälp, det skulle spara mycket tid... ;)