Добавление новой строки с данными в таблицу Excel VBA - возвращает ошибку

Question

Я пытаюсь добавить новую строку данных в таблицу Excel.Однако при этом возникает несколько ошибок.

Код для добавления новой строки:

Private Sub CommandButton54_Click()

Dim ws As Worksheet

Set ws = Sheets("Worksheet1")

Dim tbl As ListObject

Set tbl = ws.ListObjects("Table1")

Dim newrow As ListRow

Set newrow = tbl.ListRows.Add

With newrow

    .Range(3) = Me.Add1

    .Range(4) = Me.Add2

    .Range(5) = Me.Add3

    .Range(6) = Me.Add4
End With

Однако, когда я добавляю новую строку и покидаю пользовательскую форму, в следующий раз, когда я пытаюсь открыть пользовательскую форму, ошибка времени выполнения13 появляется и файл вылетает при закрытии.