VBA Excel-Обновление данных на другой лист

Question

Я новичок в использовании Excel VBA, я создал пользовательскую форму (Collection_form), которую я буду вводить разные суммы от разных членов из списка проверки. Цель: я хочу обновить все ячейки на основе входных данных из формы сбора в другом листе рабочего листа (Collection_Report) после нажатия кнопки «Отправить». Данные должны успешно обновиться после нажатия кнопки «Отправить» и очистить содержимое (Collection_form), готовое для сбора данных для следующего члена.

Submit Code:
Sub Submit_Click()
'
' Submit_Click Macro
'

'

'name

    Sheets("Collection_Form").Select

    Range("E14:G14").Select
    Selection.Copy
    Sheets("Collection_Report").Select
    Range("B1000").Select
    Selection.End(xlUp).Select

ActiveCell.Offset(1, 0).Select

'ActiveCell.Offset(0, 1).Select
'ActiveSheet.Paste
'ActiveCell.Offset(0, -1).Select
'ActiveCell.Offset(1, 0).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

'Month

Sheets("Collection_Form").Select
Range("E9:F9").Select
Selection.Copy
Sheets("Collection_Report").Select
ActiveCell. Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

'Attendance
Sheets("Collection_Form").Select
Range("E11").Select
Selection.Copy
Sheets("Collection_Report").Select
ActiveCell. Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False



'Loan Interest

Sheets("Collection_Form").Select
Range("AV17").Select
Selection.Copy
Sheets("Collection_Report").Select
ActiveCell. Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

'Loan Payment
Sheets("Collection_Form").Select
Range("AV18").Select
Selection.Copy
Sheets("Collection_Report").Select
ActiveCell. Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

'MGR
Sheets("Collection_Form").Select
Range("AV19").Select
Selection.Copy
Sheets("Collection_Report").Select
ActiveCell. Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

'SHARES
Sheets("Collection_Form").Select
Range("AV20").Select
Selection.Copy
Sheets("Collection_Report").Select
ActiveCell. Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

'INSURANCE
Sheets("Collection_Form").Select
Range("AV21").Select
Selection.Copy
Sheets("Collection_Report").Select
ActiveCell. Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


'OTHER
Sheets("Collection_Form").Select
Range("AV22").Select
Selection.Copy
Sheets("Collection_Report").Select
ActiveCell. Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

'MEMBERS
Sheets("Collection_Form").Select
Range("AV23").Select
Selection.Copy
Sheets("Collection_Report").Select
ActiveCell. Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


'FINE
Sheets("Collection_Form").Select
Range("AV24").Select
Selection.Copy
Sheets("Collection_Report").Select
ActiveCell. Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


'BANK TOTAL
Sheets("Collection_Form").Select
Range("G25").Select
Selection.Copy
Sheets("Collection_Report").Select
ActiveCell. Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

'CASH TOTAL
Sheets("Collection_Form").Select
Range("H25").Select
Selection.Copy
Sheets("Collection_Report").Select
ActiveCell. Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False


    ActiveWorkbook. Save
MsgBox ("Record Saved")

End Sub