Sprawdzenie czy taka wartość już jest wpisana w danej kolumnie

Hej.

Jak za pomocą vba sprawdzać czy wartość, którą wprowadziłem już jest w danej kolumnie?
Chodzi o to aby pojawił się komunikat, że to co wprowadziłem w danej kolumnie już jest.

Dobra mam takie coś

Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Integer

If Target.Column = 2 Then
If Intersect(Target, Range("B:B")) Is Nothing Or Cells(Target.Row, 4) <> "" Then Exit Sub
Cells(Target.Row, 4) = Now

ElseIf Target.Column = 7 Then
If Intersect(Target, Range("G:G")) Is Nothing Or Cells(Target.Row, 9) <> "" Then Exit Sub
Cells(Target.Row, 9) = Now

End If

For i = 2 To Range("B2:B1000000").End(xlDown).Row - 1

 If Intersect(Target, Range("B2:B1000000")) Is Nothing Then Exit Sub

  MsgBox "wiersz b" & i

    If Range("'Arkusz1'!B" & i).Value = Range("'Arkusz1'!B" & i + 1).Value Then
        MsgBox "Taka wartość już istnieje."
    
    End If
    
Next i
    
For j = 2 To Range("G2:G1000000").End(xlDown).Row - 1

 If Intersect(Target, Range("G2:G1000000")) Is Nothing Then Exit Sub

  MsgBox "wiersz G" & j

 If Range("'Arkusz1'!G" & j).Value = Range("'Arkusz1'!G" & j + 1).Value Then
    MsgBox "Taka wartość już istnieje."
    
 End If
    
Next j

End Sub

Nie wykonuje się druga pętla. Pytanie dlaczego?