VBA Random Matris Oluşturma

[srdryrttnn]

Merhaba. 5*5 rastgele bir matris oluşturmak istiyorum. 1-1 2-2...5-5 0 olacak kalanlar rastgele oluşturulacak.
Range("G5").Select
For i=1 to 5
İf i<>j Then
For j=1 to 5

Sayi= İnt(Rnd*20)
Activecell.offset(i,j). Value= Sayi

End if
Next
Next

Bu şekilde sanırım yazmam gerekiyor ama ufak eksiklerim var sanırım düzeltebilir misiniz ? Hatalarimi

 

[ÖmerFaruk]

Sub matriss()
Range("G5").Select
    For i = 1 To 5
        For j = 1 To 5
            If i = j Then
                Sayi = 0
            Else
                Sayi = Int(Rnd * 20)
            End If
            ActiveCell.Offset(i, j).Value = Sayi
        Next
    Next
End Sub