Как скопировать и вставить значение из одного столбца в новый столбец

Question

Я пытаюсь скопировать и вставить значения в ячейке A1 и B1 в новый столбец рядом с ячейкой A1 и B1.Код работает для ячейки A1, и я получаю копию значения в ячейке B1, но не получаю тот же результат для ячейки B1 в ячейке C1.Пожалуйста, дайте мне знать, что я делаю неправильно, потому что я увеличиваю диапазон в качестве начальной позиции и конечной позиции для изменения диапазона, добавляется новый столбец.

Диапазон для копирования

Результат

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