скопированный и измененный диапазон сравнения в VBA. это не работает. какие-то идеи экспертов?

Question

Я видел этот код в интернете

Sub PullUniques()
    Dim rngCell As Range
    For Each rngCell In Range("A2:A40")
        If WorksheetFunction.CountIf(Range("B2:B40"), rngCell) = 0 Then
            Range("C" & Rows.Count).End(xlUp).Offset(1) = rngCell
        End If
    Next
    For Each rngCell In Range("B2:B40")
        If WorksheetFunction.CountIf(Range("A2:A40"), rngCell) = 0 Then
            Range("D" & Rows.Count).End(xlUp).Offset(1) = rngCell
        End If
    Next
End Sub

Я изменил и написал это

Sub PullUniques()
    Dim rngCell As Range
    Dim rng1 As Range
    Dim rng2 As Range
    Set rng1 = Application.InputBox("Range1", "Select Range1", Type:=8)
    Set rng2 = Application.InputBox("Range2", "Select Range2", Type:=8)
    For Each rngCell In Range("rng1")
        If WorksheetFunction.CountIf(Range("rng2"), rngCell) = 0 Then
            Range("C" & Rows.Count).End(xlUp).Offset(1) = rngCell
        End If
    Next
    For Each rngCell In Range("rng2")
        If WorksheetFunction.CountIf(Range("rng1"), rngCell) = 0 Then
            Range("D" & Rows.Count).End(xlUp).Offset(1) = rngCell
        End If
    Next
End Sub

это не работает. По сути, мне нужно сравнить два диапазона и получить элементы в диапазоне 1, а не в диапазоне 2, и все наоборот ... пожалуйста, помогите!