macro to copy columns from one sheet to another sheet
Just a bit alteration in the nice code.Pls try.
Sub CopyColumns1()
Dim col As Long
col = Cells(1, Columns.Count).End(xlToLeft).Column
With Sheets("sheet20")
For i = 1 To col Step 3
Columns(i).Copy .Cells(1, .Cells(1, .Columns.Count) _
.End(xlToLeft).Column + 1)
Next i
End With
End Sub
|