Thanks again, jonmo1. Your code worked great. I am trying to modify the code so that the the range of each column is automatically selected by using "End(xldown)". I am missing something because it is not working. Your help is much appreciated.
Sub Compare2Lists()
Dim ListA As Range
Dim ListB As Range
Dim c As Range
Set ListA = Range("A2").End(xlDown)
Set ListB = Range("B2").End(xlDown)
Range("D4").Value = "In List A but NOT in List B"
Range("E4").Value = "In List B_but NOT in List A"
Range("D1").Value = "Count of A"
Range("E1").Value = "Count of B"
For Each c In ListA
If c.Value <> "" Then
Range("D2").Value = Range("D2").Value + 1
If Application.CountIf(ListB, c) = 0 Then
c.Interior.ColorIndex = 22
Cells(Cells(Rows.Count, "D").End(xlUp).Row + 1, "D").Value = c
End If
End If
Next c
For Each c In ListB
If c.Value <> "" Then
Range("E2").Value = Range("E2").Value + 1
If Application.CountIf(ListA, c) = 0 Then
c.Interior.ColorIndex = 8
Cells(Cells(Rows.Count, "E").End(xlUp).Row + 1, "E").Value = c
End If
End If
Next c
End Sub