Сохранение вопроса, ответа и примера в другой лист

Question

Я хочу иметь возможность сохранять ответы в текстовых полях на другой лист. Для этого вам следует использовать кнопку. Например, (рисунки ниже) вопрос «Что такое 1 + 1» на другом листе должен быть в строке A3, ответ «3» в строке C3 и пример «2» в строке E3. Сохраненные ответы должны быть один под другим на другом листе. Кроме того, я понятия не имею, как заставить рабочий лист открываться только один раз (в настоящее время каждый раз, когда я нажимаю кнопку, создается новое).

Код:

Private Sub CommandButton1_Click()
    Dim ActSheet As Worksheet
    Set ActSheet = ActiveSheet
    Dim NewSheet As Worksheet

    Set NewSheet = ThisWorkbook.Sheets().Add()
    NewSheet.Move After:=Sheets(ThisWorkbook.Sheets().Count)
    NewSheet.Range("A1").Value = "Question"
    NewSheet.Range("C1").Value = "Answer"
    NewSheet.Range("E1").Value = "Example"

    ActSheet.Select
End Sub

Изображение 1:

Изображение 2: