問題点

画像の通りユーザーフォームに値を入力します。すべて入力したら登録ボタンを押すのですが、入力の途中でユーザーフォームを閉じてしまいました。

入力を再開するためにユーザーフォームを再起動します。

そうすると、途中まで入力していた情報が失われてしまいました。
入力情報を回避する方法をお教えします。

解決策

ユーザーフォームにユーザーが何か値を入れます。ユーザーフォーム(テキストボックス)の値が変化した時、ワークシートにユーザーフォームの値を書き込みをするプログラムにします。

Private Sub okTB_Change()
    Set ws = ThisWorkbook.Sheets(resultWsName)
    ws.Cells(Me.sanshouTB.Value, 入力結果列.良品数) = Me.okTB.Text
End Sub

okTBの値に変化が起きたとき、発動するプログラムです。

okTBに"1"と入力されたら、ワークシートにも"1"と書き込みます。

Private Sub UserForm_Initialize()
    Me.okTB.Text = ws.Cells(tr, 入力結果列.良品数).Value
end sub

ワークシートに書きこまれた値をユーザーフォームのokTBに代入しています。