```
Sub CompareData()
Application.ScreenUpdating = False
Dim Rng As Range, RngList As Object
Set RngList = CreateObject("Scripting.Dictionary") 'creates dictionary to store data
Sheets("Working Population").Select
For Each Rng In Range("O2", Range("O" & Rows.Count).End(xlUp)) 'loops through column O
If Not RngList.Exists(Rng.Value & Rng.Offset(0, 9)) Then 'if the concatenated values of cells in column O and column X are not in dicitonary...
RngList.Add Rng.Value & Rng.Offset(0, 9), Nothing 'adds the concatenated values of cells in column O and column X
End If
Next
Sheets("Incoming Volume").Select
For Each Rng In Range("H2", Range("H" & Rows.Count).End(xlUp)) 'loops through column H
If Not RngList.Exists(Rng.Value & Rng.Offset(0, 9)) Then 'if the concatenated values of cells in column H and column Q are not in dicitonary, ie they are unique.....
Range("H" & Rng.Row & ":BB" & Rng.Row).Copy Sheets("Working Population").Cells(Sheets("Working Population").Rows.Count, "O").End(xlUp).Offset(1, 0) 'copies range
End If
Next
RngList.RemoveAll 'empties dictionary
Application.ScreenUpdating = True
End Sub
```