For Each Cell In rngA
If Cell < "xxx" Then
With Cell
If Application.CountIf(rngZ, .Value) = 0 Then

Cells(rw, 3).Value = .Value
rw = rw + 1
End If

End With
End If

Next Cell


For Each Cell In rngB
If Cell < "xxx" Then
With Cell
If Application.CountIf(rngZ, .Value) = 0 Then

Cells(rw, 3).Value = .Value
rw = rw + 1
End If

End With
End If

Next Cell


For Each Cell In rngC
If Cell < "xxx" Then
With Cell
If Application.CountIf(rngZ, .Value) = 0 Then

Cells(rw, 3).Value = .Value
rw = rw + 1
End If

End With
End If

Next Cell


******** Thanks !!! ********