Код VBA Excel для переміщення даних з 4 конкретних комірок на інший робочий аркуш у наступному доступному рядку [закрито]

Я дізнався про код VBA, але це мене затримало. Я використовую Excel-2013.
У моєму аркуші "Рахунок" у мене є 4 комірки (комірки E3, C3, E36 та E34), які я хочу перенести у свій "Спосіб оплати" у наступному рядку. Перший ряд, який буде доступний, - це 3-й ряд. Я хотів би, щоб комір E3 копіював у стовпчик C, C3 в D, E36 в E, а E34 у F. Коли кожен рахунок-фактура зберігається, я хочу передати ці дані. Я вже маю код очистити рахунок-фактуру. Мені просто потрібно передати ці 4 комірки даних.

Спробуйте наступне:

Sub CopyDataToMethodOfPayment()
    Dim NewRow: NewRow = GetFirstEmptyRowOnMethodOfPayment     'Find the next row free on "Method Of Payment"
    Worksheets("Method Of Payment").Cells(NewRow, 3).Value = Worksheets("Invoice").Range("E3").Value    'Copy E3 to Column C on empty row
    Worksheets("Method Of Payment").Cells(NewRow, 4).Value = Worksheets("Invoice").Range("C3").Value    'Copy C3 to Column D on empty row
    Worksheets("Method Of Payment").Cells(NewRow, 5).Value = Worksheets("Invoice").Range("E36").Value   'Copy E36 to Column E on empty row
    Worksheets("Method Of Payment").Cells(NewRow, 6).Value = Worksheets("Invoice").Range("E34").Value   'Copy E34 to Column F on empty row
End Sub

Function GetFirstEmptyRowOnMethodOfPayment() As Integer
    Dim RowCount: RowCount = 1 'Set row to start looking for empty rows from
    Do
        RowCount = RowCount + 1 'Increment to next row
    Loop Until IsEmpty(Worksheets("Method Of Payment").Cells(RowCount, 3).Value) 'Stop once we find an empty one
    GetFirstEmptyRowOnMethodOfPayment = RowCount    'Return the row number of the empty one
End Function