¿como seleccionar rango de celda manual en una macro?

Hola amigos.

Estoy trabajando esta macro para copir unos datos de excel a texto, mi duda es: ¿habrá forma de que al hacer esta tarea la macro me solicite seleccionar manualmente el rango deseado?

En la macro tengo señalado por defecto toda la columa "D", pero en ocasiones lo requiero de "D1:D10" de "D9:20", son rangos variables. ¿se puede seleccionar manualmente el rago deseado?

sub PasarATXT()

Application.DisplayAlerts = False

inihoj = ActiveSheet.Name

nomfic = InputBox("Nombre del Archivo de texto")

nomfic = nomfic & ".txt"

Sheets.Add

neohoj = ActiveSheet.Name

Sheets(inihoj).Select

Columns("D:D").Copy

Sheets(neohoj).Select

Columns("A:A").PasteSpecial Paste:=xlPasteValues

ruta = ActiveWorkbook.Path & "\"

ActiveWorkbook.SaveAs Filename:=ruta & nomfic, FileFormat:=xlTextMSDOS, CreateBackup:=False

Application.DisplayAlerts = False

Sheets(neohoj).Delete 'Select

Application.CutCopyMode = False

Application.DisplayAlerts = True

ActiveWorkbook.Close (0)

End Sub