Сравнить строки в 2 столбцах каждую с каждой

Option Explicit
 
'Прошу помощи у опытных людей.
'данные формируются вот в таком виде (файл приложен).
'Задача: в столбцах F и G (это координаты Х и У) сравнить строки, т.е.
'точку с номером 1 (строка 3) сравнить именно по координатам в этих 2х
'столбцах со всеми последующими точками. При совпадении координат
'присваивать точкам одинаковый номер, но наименьший. после этого
'перенумеровать все номера точек, т.к. если например точка №1 совпала с
'точкой №20 то 20я точка становится тоже №1, а точки №20 нет в нумерации.
'нумерация должна поменяться на такую: 18, 19, 1, 20, 21... Соответственно
'после этого проверяется точка №2 со всеми последующими и все то же самое
'по кругу. Пустые строки при этом должны остаться, и вся другая информация
'тоже остается как есть.
' Сижу несколько дней уже, никак не могу разобраться как сделать,
' даже примеры представленные на сайте не получается переделать.
' Сейчас делаю все это вручную, а точек бывает ну оочень много..
' Помогите люди добрые))
Dim i&, j&, ii&, jj&, s$, ss$
Dim dict As Object, b&
 
Sub StartProg()
 
    Set dict = Nothing
    Set dict = CreateObject("scripting.dictionary")
 
    With Worksheets("координаты")
        For i = 2 To .Cells(.Rows.Count, 6).End(xlUp).Row
            s = .Cells(i, 6)
            If IsNumeric(s) Then
                ss = s & "/" & .Cells(i, 7)
                If Not dict.exists(ss) Then
                    dict.Add ss, 0
                Else
                    If b <> 7 Then b = MsgBox("Совпала " & i & " Строчка" & vbCrLf & _
                    "Показывать дальше ?", 68)
                End If
            End If
        Next
    End With
End Sub

Dim i&, j&, ii&, jj&, s$, ss$
Dim dict As Object, b&
 
Sub StartProg()
    b = 0
    On Error Resume Next
    Set dict = Nothing
    Set dict = CreateObject("scripting.dictionary")
 
    With Worksheets("координаты")
        For i = 2 To .Cells(.Rows.Count, 6).End(xlUp).Row
            s = .Cells(i, 6)
            If IsNumeric(s) Then
                ss = s & "/" & .Cells(i, 7)
                If Not dict.exists(ss) Then
                    dict.Add ss, i
                Else
                    If b <> 7 Then b = MsgBox("Совпала " & i & " со строчкой " & dict(ss) & vbCrLf & _
                    "Показывать дальше ?", 68)
                End If
            End If
        Next
    End With
End Sub

Dim i&, j&, ii&, jj&, s$, ss$
Dim dict As Object, b&
 
Sub StartProg()
    b = 0
    On Error Resume Next
    Set dict = Nothing
    Set dict = New Collection  'CreateObject("scripting.dictionary")
 
    With Worksheets("координаты")
        For i = 2 To .Cells(.Rows.Count, 6).End(xlUp).Row
            s = .Cells(i, 6)
            If IsNumeric(s) Then
                ss = s & "/" & .Cells(i, 7)
                Err.Clear
                dict.Add CStr(i), ss
                If Err = 0 Then
                    dict.Add CStr(i), ss
                Else
                    If b <> 7 Then b = MsgBox("Совпала " & i & " со строчкой " & dict(ss) & vbCrLf & _
                    "Показывать дальше ?", 68)
                End If
            End If
        Next
    End With
End Sub