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 .......................