Скопируйте несколько столбцов и вставьте в другую книгу (место назначения)

Question

Я объявляю данные, которые копирую, как диапазон и использую пункт назначения .copy для вставки. Однако при использовании нескольких столбцов выдается ошибка: сообщение об ошибке

У меня есть четыре разных набора данных, которые я хотел бы скопировать. Вот что у меня есть:

Sub newMacro()

'   Copy and paste all data

Dim copyNames As Range, pasteNames As Range, copyAmounts As Range, pasteAmounts, copyDates As Range, pasteDates As Range, _
copyPayment As Range, pastePayment As Range

Set copyNames = Workbooks("2019 11 November.xls").Worksheets(2).Columns("F")
Set copyAmounts = Workbooks("2019 11 November.xls").Worksheets(2).Columns("AR")
Set copyDates = Workbooks("2019 11 November.xls").Worksheets(2).Columns("AI")
Set copyPayment = Workbooks("2019 11 November.xls").Worksheets(2).Columns("AJ")

Set pasteNames = Workbooks("VBA Workbook.xlsm").Worksheets(1).Columns("A")
Set pasteAmounts = Workbooks("VBA Workbook.xlsm").Worksheets(1).Columns("C")
Set pasteDates = Workbooks("VBA Workbook.xlsm").Worksheets(1).Columns("D")
Set pastePayment = Workbooks("VBA Workbook.xlsm").Worksheets.Columns("E")

copyNames.Copy Destination:=pasteNames
copyAmoutns.Copy Destination:=pasteAmounts
copyDates.Copy Destination:=pasteDates
copyPayment.Copy Destination:=pastePayment

End Sub

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

Answer 1

pasteAmoutns не объявлено

Как указано @ BigBen , используйте Option Explicit, чтобы избежать орфографических ошибок.