VBA'de hesaplanarak elde edilen veriyi bir hücreye yazdırmak

[auroraborealis94]

Merhaba hocalarım ufak bir sorum var:

vba içerisinde bir formülasyon elde ettim. bu formülasyon for döngüsü içerisinde ve bu for döngüsü sayesinde üçgen matris çıkartmaya çalışıyorum.
Fakat verileri hücrelere nasıl yazdıracağımı bilmiyorum.

Sub matris()
Dim j As Integer, i As Integer, bilgi As Double, sht As Worksheet

Set sht = Sheets("Sayfa1")


    For j = 2 To 2888
        For i = j To 2888
            
            bilgi = Sqr(Power(sht.Cells(j, 2) - sht.Cells(i + 1, 2), 2) + Power(sht.Cells(j, 3) - sht.Cells(i + 1, 3), 2))
            bilgi.Value = sht.Cells(j, i + 1)
            
        Next i
    Next j

    bilgi = Sqr(sht.Cells(10, 10))
    bilgi.Value = sht.Cells(5, 5)

End Sub

Yardımcı olun lütfen