Save cell location to a variable

[Alberto Ast]

I need to save my active cell location into a variable so later I can select
a range from a specific cell all the way to the saved one cell.

For example I have data from A1:B20.. row 20 will change each time.
Then I do as follows:
Range ("A1:B1").select
Range(Selection, Selection.End(xlDown)).Select

Then I move one cell to the right
ActiveCell.Offset(0, 1).Select
Next I want to copy data from C1:G1 all the way to last record on column A
Range("C1:G1").Select
Selection.Copy

Here the tricky part
Range("C2:Cx).select
Paste

Hope is not too much detail for a simple question.
Thanks

 

[Charabeuh]

Hello

you could declare a range variable

Dim Mycell as range

and replacewith
Set MyCell = ActiveCell


Then replace
Range("C2:Cx).select
with
Range("C2",MyCell).select

 

[Alberto Ast]

This was great... thanks...

Hello

you could declare a range variable

Dim Mycell as range

and replace
with
Set MyCell = ActiveCell


Then replace
Range("C2:Cx).select
with
Range("C2",MyCell).select

 

[Charabeuh]

Thanks for the result

CA

This was great... thanks...