LBound/UBound Intersect together

Hi guys.

How can I make this code working? It should take cell from rng2, go through first row in rng1, compare it and if it doesn't find match, paste this cell in somewhere (destination is irrelevant).

Dim FirstRow As Variant, rng1 As Range, rng2 As Range, FRow As Range, j As Integer

Set FirstRow = rng2.Rows(1)
Set FRow = rng1.Rows(1)

For j = LBound(FirstRow) To UBound(FirstRow)
    If Intersect(j, FRow) Is Nothing Then
        Selection.Copy Destination:=Range("A1").End(xlToRight).Offset(0, 1).Paste
    Else
    End If
Next j

Thanks