Как вставить новый столбец и заполнить его значениями другого столбца рабочего листа с помощью VBA?

Question

Я пытаюсь создать новый столбец и могу только создать новый столбец, не имея возможности вставить значения.Моя цель - вставить столбец C из Листа1 в столбец B из Листа2, чтобы получить результат из Листа 3.

Лист1:

Лист2:

Лист3:

Вот что япока пробовал:

Sub AddColumn(length As Integer)
    Dim cell As String
    Dim form As String
    Worksheets("Sheet2").Activate
    Dim i, lastColumnNbr As Long
    Dim lastColumnStr As String
    lastColumnNbr = Worksheets("Sheet2").UsedRange.Columns.Count + 1
    lastColumnStr = ColLetter(lastColumnNbr)
    ColumnName = Split(base, " ")
    Range(lastColumnStr & 1) = ColumnName(1)
    Application.CutCopyMode = False
    For i = 2 To length
        cell = lastColumnStr & i
        form = "=TEXT("B"&i,"m/d/yyyy")"
        Range(cell).Formula = form
    Next
    Columns("A:A").Select
    Application.CutCopyMode = False
    Selection.Copy
    Columns(LastColumnNbr).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

Заранее спасибо