makro i odległość między punktami

Witam ,
dostałem takie zadanie z informatyki a że jestem zielony w tych sprawach to prosze o pomoc. Nie byłoby w tym większego problemu gdyby nie to że musze napisać do tego zadania makro w excelu.

Oto treść zadania:
Dane są punkty płaszczyzny wybrane losowo. Punktem środkowym niech będzie taki punkt, że średnia odległość S(xs, ys) od pozostałych punktów jest najmniejsza. Dla wierzchołków kwadratu ABCD, A(xs-h, ys-h), B(xs-h, ys+h), C(xs+h, ys+h), D(xs+h, ys-h),(h>0 dowolna mała liczba),oblicz ich średnią odległość od pozostałych punktów. Wierzchołek, którego odległość średnia jest najmniejsza i mniejsza od średniej odległości od punktu środkowego staje się nowym punktem środkowym. Obuduj go nowym kwadratem A’B’C’D’. Zakończ postępowanie wtedy, gdy średnie odległości punktów od wszystkich wierzchołków kwadratu będą wieksze niż średnia odległość od aktualnego punktu środkowego.
h=0,1

Sam doszedłem to czegoś takiego:

Sub zaddom()

  Set ark = Worksheets(1)
  n = WorksheetFunction.Count(ark.Range("A:A"))
  ark.Cells(2, 6) = n
  Set Punkty = ark.Range("A2:B" & Format(n + 1))

  For j = 1 To n
    For i = 1 To n
      ark.Cells(j + 1, 3).Value = _
            Sqr((Punkty.Cells(j, 1).Value _
            - Punkty.Cells(i + 1, 1)) ^ 2 _
            + (Punkty.Cells(j, 2).Value _
            - Punkty.Cells(i + 1, 2)) ^ 2)
    Next i
  Next j

  Set odlegloscsr = ark.Range("C2:C" & Format(n + 1))
  minodlsr = WorksheetFunction.Min(odlegloscsr)
  ark.Cells(2, 5) = minodlsr
End Sub
... ale teraz zupełnie nie wiem jak dalej zrobić, żeby wyznaczyć ten punkt środkowy.

Z góry dziekuje za udzieloną pomoc.

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

katkaras.opx.pl