Ayuda con macro

Hola, gracias por la ayuda que me diste con la macro para generar varios archivos, anduvo muy bien.
Ahora te molesto con lo siguiente:necesito crear una macro que me pregunte un número desde y un número hasta. Esto es lo que he hecho, pero no está muy bueno.
Sub Imp_VOUCH_VARIOS()
prompt = "DESDE EL VOUCHER Nº : "
Title = "I M P R I M I R EGRESO"
Do
N = InputBox(prompt, Title)
Loop Until IsNumeric(N) 'acepta sólo números, si no vuelve a preguntar
If N = "" Then
End
ElseIf N <= 0 Then
End
Else
Sheets("voucher (2)").Range("M2") = N
End If
prompt = "HASTA EL VOUCHER Nº : "
Title = "I M P R I M I R EGRESO"
Do
M = InputBox(prompt, Title)
Loop Until IsNumeric(M) 'acepta sólo números, si no es vuelve a preguntar
If M = "" Then
End
ElseIf M <= 0 Then
End
Else
Sheets("voucher (2)").Range("N2") = M
End If
End Sub
Ojalá puedas ayudarme.