using dim range as range in address string

[moxy85]

I have the following code as part of my macro whereby I want the user to select the "schedulenumber" by way of cell address and then the macro work out the range of data to copy from this address.

Therefore I have come up with the following but something's not right, can you help me please?

    Sheets(strActiveSheet).Select
    Dim schedulenumber As Range
    Set schedulenumber = Application.InputBox _
    (Prompt:="Select schedule numebr", Title:="Schedule Number", Type:=8)
 
    ActiveSheet.Range(Range(schedulenumber.Offset(2, -1)), Range(L65536).End(xlUp)).Copy
    Sheets("Order Form - Master (2)").Select
    Range("I17").Select
    Selection.PasteSpecial Paste:=xlPasteValues, _
    Operation:=xlNone, SkipBlanks:=False, Transpose:=False

at the moment for testing, the only cell can be contained within a certain location hence I am able to set the "L65536" location.
Once I correct the first part of the code I aim to replicat this for the second address i.e.

ActiveSheet.Range(Range(schedulenumber.Offset(2, -1)), Range(schedulenumber.End(xlUp)).Copy

thanks in advance.

 

[moxy85]

I forgot to mention that the line that debugs is

ActiveSheet.Range(Range(schedulenumber.Offset(2, -1)), Range(L65536).End(xlUp)).Copy

 

[mikerickson]

It looks like there's misplaced parenthesis

ActiveSheet.Range(Range(schedulenumber).Offset(2, -1), Range(L65536).End(xlUp)).Copy

 

[moxy85]

that is how I started the code, i've just tried it again and it doesn't work

runtime 1004 error
method 'Range' of object'_global' failed.

 

[mikerickson]

With type:=8, the inputbox returns a range object.
Try

ActiveSheet.Range(schedulenumber.Offset(2, -1), Range(L65536).End(xlUp)).Copy