You will have to include a inputbox within your code, get the range in the
inputbox and proceed.

for example :

your code........

Dim j As Variant
j = InputBox("Please enter the Range", "UserName")
Range(j).Value = 500

your code .......................