Как скопировать и вставить определенный диапазон в следующее пустое значение этого диапазона? EG: Скопируйте A4: A12 и вставьте в F4: F12

Question

Я пытаюсь автоматизировать макрос копирования / вставки. Я пытаюсь скопировать значения в диапазоне от C4: C12 и вставить их в следующий пустой столбец в том же диапазоне строк. Вот код, который у меня есть на данный момент:

Sub CopyPaste()
    Dim range_to_copy As Range
    Dim range_to_paste As Range

    Set range_to_copy = Application.Range("C4:C12")
    Set range_to_paste = 1 + Cells(4, Columns.Count).End(xlToLeft).column


        range_to_copy.Copy
        range_to_paste.PasteSpecial xlPasteValues


        Application.CutCopyMode = False
        Application.ScreenUpdating = True

End Sub

Я продолжаю получать объектную ошибку, и я не понимаю, где я иду не так.