如何将值从一列复制并粘贴到新列

Question

我正在尝试将单元格A1和B1中的值复制并粘贴到单元格A1和B1旁边的新列中。该代码适用于单元格A1，但是我获得了单元格B1中值的副本，但我没有得到单元格C1中单元格B1的结果相同。请让我知道我在做错什么，因为随着范围的开始位置和结束位置更改范围，我正在增加范围，并添加了新列。

要复制的范围

结果

Sub duplicate()

 Dim xlastcolo As Integer 
 Dim xcolo As Integer 

 xcolo = 1 
 xlastcolo = Cells(1, Columns.Count).End(xlToLeft).Column

 Do Until xcolo = xlastcolo 
   If Cells(1, xcolo).Value <> "" Then
     ActiveCell.EntireColumn.Offset(0, 1).Insert
     Cells(1, xcolo).Copy
     Cells(1, xcolo).Offset(0, 1).PasteSpecial
     xcolo = xcolo + 2
     xlastcolo = xlastcolo + 1
   End If
Loop

xcolo = xcolo + 2

End Sub