One way:

Dim rMyRange As Range
Set rMyRange = ActiveSheet.Range("A1:C" & I)

In article ,
ub wrote:

How do I write the code , when I want to pass the value of a cell in the
range object.
Example, I have stored a value of a cell in a variable 'I'.
Now I want my range to be from A1 to C(the variable 'I').