Code:
Sub Kreni()
Piramida (10)
End Sub
Sub Piramida(N As Long)
On Error GoTo Handler
For i = 1 To 2 * N - 1 Step 2
For j = 1 To i
dodatak = Cells(i - j, j - 1)
Cells(i - j + 1, j) = 1 + dodatak
Next j
Next i
Exit Sub
Handler:
dodatak = 0
Resume Next
End Sub