Input Box a range with keyboard within a Userform

I have a macro that (after some data checks) calls a userform, which prompts a range input from the user with an input box. However, it seems the only way to enter data is by using the mouse, and the ctrl + shift + arrow combinations don't seem to work. I know I have used input boxes that allow for keyboard entry--for example, see below. Is there anything that will allow this functionality via a userform?

Sub test()
    Set A = Application.InputBox(Prompt:="Input data",  Type:=8)
End Sub

Try this 2 step process.

1. In the UserForm properties, find ShowModal, and change the property to false.
2. After this code:

    Set A = Application.InputBox(Prompt:="Input data",  Type:=8)

Add this line:

ActiveSheet.Range("A1").Select

Let me know if this works.

Thanks, but that didn't seem to work. Perhaps it's because I'm using a module to initiate the userform? For example, I have

Sub Initiate()

If Range("A1").value = "A" Then Call userform

End Sub

And then in the userform, I have the input box. Any other ideas?

Thanks, Solus. It is declared as a range. I'm just trying to make it easier to input the range- instead of scrolling down with the mouse for 3,000 rows, it's easier if I can just key in ctrl + shift + down. I am looking for something along the lines of what BigBas suggested, but that didn't work for me either. Any other suggestions are welcome.

Open the attached file, click the command button to show the form, then click the command button to open the input box. Does it allow you to navigate the range with keyboard?

It does. Could it be that what I am trying to do applies to a chart? I am creating something that allows one to add custom data labels to a chart.

When I activated the chart, it worked.

cht.Activate

Thanks!