Sub multiplica()
    Dim v_num, v_i
    v_num = InputBox("¿Qué tabla quieres?")
    If Not IsNumeric(v_num) Then
        MsgBox "Ese no es un número."
        Exit Sub
    End If
    
    For v_i = 1 To 10
        Cells(v_i, 1) = v_num
        Cells(v_i, 2) = "x"
        Cells(v_i, 3) = v_i
        Cells(v_i, 4) = "="
        Cells(v_i, 5) = v_i * v_num
    Next v_i
End Sub
