Hi,

I am struggling to to Copy entire selected column to next columns till last column.

As an example I want to copy selected column(lets say column B) and paste it to next column (column c) then paste special column b on itself as a value and repeat it till last column in sheet.

I tried the code below but it just do it on first 2 column not till last column. I know I made a mistake in loop, but I do not know how to fix it. 

Sub CopyColumnLoop()
'
' Dim LastCol As Integer
    With ActiveSheet
        s = .Cells(1, .Columns.Count).End(xlToLeft).Column
    End With
    
    Dim X As Integer

     For X = 1 To s

'
' CopyAsText Macro
'

'
    Selection.Copy
    ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, -1).Columns("A:A").EntireColumn.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Next X
    
End Sub

I do appreciated in advance for your time and help.