get and put value

[!..:: Enang ::..!]

How do I get the value some colomn before (and after) ActiveCell.Value and
put in a cell

ex :
A1 = "UK"
B1 = "US"
C1 = "AU"
D1 = "ID"
E1 = "DE"

The activecell is C1, I want to get the value of colomn A,B,D,E and put in
(let say) AA,BB,DD,EE

thx

 

[Bob Phillips]

VBA?

Range("AA1").Value = Cells(Activecell.Row,"A").Value

etc.

 

[!..:: Enang ::..!]

it work!
thank you

VBA?

Range("AA1").Value = Cells(Activecell.Row,"A").Value

etc.