Hi Jean,

Apologies, I assumed 6 columns, not 5 as you stipulate.

Try, therefo

Sub Tester1()
Range("A1:A6").Cut Range("F1")
Range("A1:A6").Delete Shift:=xlToLeft
End Sub

---
Regards,
Norman



"Norman Jones" wrote in message
...
Hi Jean,

Try:

Sub Tester1()
With Range("A1:A6")
.Cut Range("G1")
.Delete Shift:=xlToLeft
End With
End Sub


If you are new to macros, you may wish to visit David McRitchie's
Introduction to Macros and User Defined Functions page at::

http://www.mvps.org/dmcritchie/excel/getstarted.htm


---
Regards,
Norman


"Jean" wrote in message
ups.com...
Hi there,

Please help a Newb! :)

I have to do the following in code:
There are 5 columns.
Column with range A1:A6 must go to the back, i.e. to F1:F6
Each of the columns must then move one to the left.

Simple, but how?

Thanks in advance!