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
I need to save this location (Cx)

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

Hello

you could declare a range variable

Dim Mycell as range

and replace
I need to save this location (Cx)
with
Set MyCell = ActiveCell


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



"Alberto Ast" a écrit dans le message
de ...
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
I need to save this location (Cx)

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

This was great... thanks...

"Charabeuh" wrote:

Hello

you could declare a range variable

Dim Mycell as range

and replace
I need to save this location (Cx)
with
Set MyCell = ActiveCell


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



"Alberto Ast" a écrit dans le message
de ...
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
I need to save this location (Cx)

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

Thanks for the result

CA

"Alberto Ast" a écrit dans le message
de ...
This was great... thanks...

"Charabeuh" wrote:

Hello

you could declare a range variable

Dim Mycell as range

and replace
I need to save this location (Cx)
with
Set MyCell = ActiveCell


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



"Alberto Ast" a écrit dans le
message
de ...
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
I need to save this location (Cx)

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