elimdeki çizgileri Hatlara nasıl ayırabilirim?

[pitsss]

Herkese iyi geceler, elimde bazı noktalar ve bu noktaların birleşmesinden oluşan cizgiler var. Ben bu çizgilere excel de makro ile her ayrım noktasına kadar "HAT"lara( A, B,C ,D gibi) ayırmak istiyorum
ancak bunun vba makro olayını bi türlü yapmadım. Bunu excel de makro ile yapmak istiyorum çünkü bu tarz çok fazla sayıda çizgi olacak.
bu konu hakkında düşünce bilgi ve fikirlerinizi paylaşırsanız sevinirim. Nasıl bir yol izlemeliyim. İşin içinden çıkamadım. Vba makro yerine gidiş yolu nasıl olmalıdır sizce. Yardımlarınızı bekliyorum
teşekkürler
örnek olması açısından çizilmiş bir şekilde aşağıdaki gibidir.

 

[pitsss]

aşağıda yapmış olduğum kod ile çözüme ulaştım. Herkese teşekkürler

Sub HAT_belirle()
Dim startp As String
Dim endp As String

Set sh1 = Sheets("sayfa1")
For x = 3 To sh1.Cells(65536, "A").End(xlUp).Row
For y = 2 To sh1.Cells(65536, "A").End(xlUp).Row
sh1.Cells(2, "e") = 1
startp = sh1.Cells(x, "b")
endp = sh1.Cells(y, "c")
If startp = endp Then
dene = sh1.Cells(x, "b")
If WorksheetFunction.CountIf([b:b], dene) = 1 Then
sh1.Cells(x, "e") = sh1.Cells(y, "e")
HAT = sh1.Cells(y, "e")
Else
HAT = HAT + 1
sh1.Cells(x, "e") = HAT
End If
Else
End If
Next y
Next x
End Sub