Как использовать кнопку управления формой для подсказки смены строки с помощью VBA?

Question

У нас есть база данных ответов на вопросник, отформатированная таким образом, чтобы каждый ответ отображался в отдельной строке, а заголовки столбцов - это разные вопросы.У нас есть отдельный рабочий лист, который используется в качестве панели отображения с кнопкой управления формой «Далее», которую необходимо перейти к следующему набору, если откликнется.EG

Как вас зовут?= Ответы! A2

Какой ваш любимый цвет?= Ответы! B2

Сколько вам лет?= Ответы! C2

и т. Д.

Когда нажата кнопка управления формой, нам нужен следующий набор результатов EG

Как вас зовут?= Ответы! A3

Какой ваш любимый цвет?= Ответы! B3

Сколько тебе лет?= Ответы! C3

Мы записали, чего хотели бы достичь одним щелчком мыши, и VB выглядит следующим образом:

     '
       ActiveCell.FormulaR1C1 = "=Responses!R[-1]C[-3]"
       Range("D12:H15").Select
       ActiveCell.FormulaR1C1 = "=Responses!R[-9]C[-2]"
       Range("D18:H21").Select
       ActiveCell.FormulaR1C1 = "=Responses!R[-15]C[-1]"
       Range("D24:H27").Select
       ActiveCell.FormulaR1C1 = "=Responses!R[-21]C"
       Range("D30:H33").Select
       ActiveCell.FormulaR1C1 = "=Responses!R[-27]C"
       Range("D36:H39").Select
       ActiveCell.FormulaR1C1 = "=Responses!R[-33]C[2]"
       Range("D42:H45").Select
       ActiveCell.FormulaR1C1 = "=Responses!R[-39]C[3]"
       Range("F48").Select
    End Sub

Это работает и переключает все ответы в соответствующих ячейках наответы в следующих строках.Однако нам нужно, чтобы он продолжался с каждым щелчком мыши, двигался вниз по другому ряду и так далее.

Кто-нибудь знает, что такое правильный VBA для достижения того, что нам нужно?

Спасибо!