Pass .Range as a parameter VBA

Question

Hi Please help me with the below,

Sub movedata()

    Call select_data(.Range("B6:B12"))


End Sub


Function select_data(C As Range)

    Worksheets("sheet1").Range("I6:I16") = Worksheets("Sheet1").Range(C).Value

End Function

I can't see where I am going wrong,

Thanks,

Answer 1

C already is a Range object so there's no need to pass it to the Range() function (which expects a string anyway) to create it.

Change:

Worksheets("sheet1").Range("I6:I16") = Worksheets("Sheet1").Range(C).Value

To:

Worksheets("sheet1").Range("I6:I16") = C