How can I edit this so it does it over Many Columns

[tonywatsonhelp]

Hi Everyone,
I have this code that works great
But instead of just working for column "CF"
I'd like it to do the same but for "CF:CO"
how can I get it to do this?

Sub TestNames1()
Lastrow = Sheets("Project Calendar Raw").Cells(Rows.Count, "A").End(xlUp).Row
For thisRow = 2 To Lastrow
Sheets("Names").Range("A" & thisRow & ":W" & thisRow).Value = Sheets("Project Calendar Raw").Range("A" & thisRow & ":W" & thisRow).Value
Sheets("Names").Range("X" & thisRow & ":Y" & thisRow).Value = Sheets("Project Calendar Raw").Range("X" & thisRow & ":Y" & thisRow).Value
Sheets("Names").Range("Z" & thisRow).Value = Sheets("Project Calendar Raw").Range("CF" & thisRow).Value
Next thisRow
End Sub

So basically once its done a list for CF it move onto the next column and does the same again hope that's clear?

Thanks

Tony

 

[Fluff]

How about

Sub Tonywatson()
   Dim LastRow As Long
   With Sheets("Project Calendar Raw")
      LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
      Sheets("Names").Range("A2:A" & LastRow).Resize(, 26).Value = .Range("A2:Z" & LastRow).Value
      Sheets("Names").Range("Z2:Z" & LastRow).Resize(, 10).Value = .Range("CF2:CO" & LastRow).Value
   End With
End Sub