Paste in first free column

Hi

I need to copy every secound column in the "CleanError" sheet, i have manged to make my VBA select the columns one at the time, but can get it to paste correctly into the new sheet

My code

Sub PasteCol()

Dim i As Long

For i = 1 To 100 Step 1

Sheets("CleanError").Activate
Cells(1, i).Select
 
 ActiveCell.Offset(0, i + 1).Columns("A:A").EntireColumn.Select

'Paste value in first available column in "Sheet1"

    Next i
   
End Sub

Thx for any help in advance!