Создание кода для перехода на следующую строку после нажатия кнопки

Я создаю макрос, который при нажатии на Button1 выбор (DateofRequest) переместится в ячейку C6 и PayeesName на Cell D6; другой щелчок при вводе имени переместится на C7 и D7 соответственно и так далее и так далее, пока все ячейки не будут заполнены.

Я буду признателен за любую помощь в этом. Спасибо!

Public Sub CommandButton1_Click() Dim DateofRequest As Date Dim PayeesName As String Worksheets("C Check Request").Select DateofRequest = Range("C13") Worksheets("C Check Request").Select PayeesName = Range("C15") Worksheets("Costume").Select Worksheets("Costume").Range("C5").Select RowCount = Worksheets("Costume").Range("C5").CurrentRegion.Rows.Count With Worksheets("Costume") RowCount = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 .Cells(RowCount, 3) = DateofRequest .Cells(RowCount, 4) = PayeesName End With End Sub 

Вы пытаетесь увеличить счет в столбцах C и D, но ищете последнюю строку в A.

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

 Public Sub CommandButton1_Click() Dim RowCount as Long With Worksheets("Costume") RowCount = .Cells(.Rows.Count, 3).End(xlUp).Row + 1 .Cells(RowCount, 3) = Worksheets("C Check Request").Range("C13").Value .Cells(RowCount, 4) = Worksheets("C Check Request").Range("C15").Value End With End Sub 
Давайте будем гением компьютера.