Excel - Tabla de combinaciones

Sub Macro4()

'

' Macro4 Macro

' combinaciones

'

' Acceso directo: CTRL+q

'

Dim o, p, i, j As Integer

Dim c As Long 'contadores

o = Range("B1").Value

p = Range("B2").Value

c = 2

'tabla combinaciones

For i = 1 To o

    For j = 1 To p

     Range("C" & c).Value = "J" & i & "_" & j

     c = c + 1

    Next j

Next i

    MsgBox "Terminado"

End Sub