Copy a range based on column selection

[hmaveal]

Heres what I need to do....

Lets say I select cell A5...I need to copy A5:J5 to another location.
And return to A5 when the paste.selection is complete.

The initial column will always be the same, the row will be a variable.

Any help ??

 

[asking]

Try ~

Sub CpReturn()

    ActiveCell.Range("A1:J1").Select
    back = Selection.Value
    Range("K10:T10") = back 'Where K1:T1 is, insert your range to copy to
    'Must be the same size as original selection
    ActiveCell.Select
End Sub

Take note of comment in macro

 

[hmaveal]

Thank You ! works perfect !!!!