Creare ambi lotto

Sub Ambi()
Dim I As Integer: Dim J As Integer: Dim K As Integer
Set cella = Application.InputBox("Selezionare cella di partenza", , , , , , , 8)
If cella Is Nothing Then Exit Sub
r = cella.Row
c = cella.Column
For I = 1 To 90
    For J = 1 + I To 90
        If J = I Then GoTo skip:
        Cells(r, c) = "'" & I & "-" & J
        c = c + 1
skip:
    Next J
Next I
End Sub