Mã VBA Excel để di chuyển dữ liệu từ 4 ô cụ thể sang một bảng tính khác trong hàng có sẵn tiếp theo [đã đóng]

Tôi đã được học về mã VBA nhưng điều này làm tôi bế tắc. Tôi đang sử dụng Excel-2013.
Tôi có 4 ô trong bảng "Hóa đơn" (Ô E3, C3, E36 và E34) mà tôi muốn chuyển sang Bảng "Phương thức thanh toán" của mình trong hàng có sẵn tiếp theo. Hàng đầu tiên sẽ có sẵn là hàng thứ 3. Tôi muốn Cell E3 sao chép vào cột C, C3 vào D, E36 vào E và E34 vào F. Khi mỗi hóa đơn được lưu, tôi muốn dữ liệu này được chuyển. Tôi đã có mã xóa hóa đơn của tôi. Tôi chỉ cần chuyển 4 ô dữ liệu này.

Hãy thử như sau:

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