Sub WypelnijWzorem(n As Integer)
    Cell = 0
    For i = 1 To n
        Cells(i, i).Interior.Color = RGB(0, 0, 255)
    Next
    i = 0
    For i = 1 To n
        Cells(n - i + 1, i).Interior.Color = RGB(0, 0, 255)
    Next
End Sub

Sub Main()
    WypelnijWzorem (10)
End Sub