Нет повторяющихся данных

Question

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

Код:

Private Sub CommandButton1_Click()
    Worksheets("Quiz").Range("H7:L10").Copy Worksheets("Antworten").Range("H7")
    Worksheets("Quiz").Range("B7:F10").Copy Worksheets("Antworten").Range("B7")
    Worksheets("Quiz").Range("H14:L17").Copy Worksheets("Antworten").Range("N7")
    Worksheets("Antworten").Activate
    If IsEmpty(Range("H7")) = False Then
    Worksheets("Quiz").Range("H7:L10").Copy Worksheets("Antworten").Range("H12")
    Worksheets("Quiz").Range("B7:F10").Copy Worksheets("Antworten").Range("B12")
    Worksheets("Quiz").Range("H14:L17").Copy Worksheets("Antworten").Range("N12")
    Else
    MsgBox "Nothing saved."
    End If
End Sub

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