Как создать макрос, который будет передавать данные на другой лист, начиная с определенной ячейки и (при последующих вызовах) работать вниз?

Question

У меня есть ячейка DATA INPUT (ячейка B3) в SHEET1. Я хочу создать макрос-код, чтобы при нажатии кнопки макроса данные из ячейки B3 SHEET1 копировались в ячейку C5 SHEET2, а также удалялись данные, введенные в ячейку B3 SHEET1. И затем, когда я введу другие данные и снова нажму кнопку, данные будут скопированы в следующую строку SHEET2, в данном случае в ячейку C6. Затем ячейки C7, C8 и так далее.

Я пытался создать код для этого, но не могу запустить его на ячейке C5. Он всегда начинается с ячейки C2, затем вниз. Я пытался исследовать коды типа "Стартроу", но не могу заставить его работать.

Пожалуйста, смотрите код ниже:

Sub Button1_Click()
Response = MsgBox("Are you sure?", vbYesNo)
If Response = vbNo Then Exit Sub
Dim nextrow As Long
nextrow = Worksheets("Sheet2").Cells(Rows.Count, "C").End(xlUp).Row + 1
Worksheets("Sheet1").Range("B3").Copy Worksheets("Sheet2").Range("C" & nextrow)
Worksheets("Sheet1").Range("B3").ClearContents
End Sub

Answer 1

Что ж, если вы хотите, чтобы данные копировались в строку 5 при первом запуске макроса, вы можете сделать это:

Sub Button1_Click()
    Response = MsgBox("Are you sure?", vbYesNo)
    If Response = vbNo Then Exit Sub
    Dim nextrow As Long
    nextrow = Worksheets("Sheet2").Cells(Rows.Count, "C").End(xlUp).Row + 1
→→  If nextrow < 5 Then nextrow = 5                                                     ←←
    Worksheets("Sheet1").Range("B3").Copy Worksheets("Sheet2").Range("C" & nextrow)
    Worksheets("Sheet1").Range("B3").ClearContents
End Sub