Excel VBA to copy and paste columns

[gripper]

Hi,

I got help from elsewhere, but for those who would like to know the answer, nere it is.

Sub newCpy()
    Dim lc As Integer
    Dim lr As Long
    Dim sh As Worksheet
     '
    lc = Range("IV1").End(xlToLeft).Column
    lr = Range("A" & Rows.Count).End(xlUp).Row
    Set sh = Sheet1
     '
    sh.Range(Cells(1, lc - 5), sh.Cells(lr, lc)).Copy sh.Cells(1, lc + 1)
    sh.Range(Cells(1, lc - 5), sh.Cells(lr, lc)) = sh.Range(Cells(1, lc - 5), sh.Cells(lr, lc)).Value
End Sub