Excel VBA UserFormでのエラーを解決したい（セルへ値の代入）

Question

Excel　VBA　UserFormでのエラー

UserFormを開く際に以下のエラーは発生しています。

貼付のExcel　シート（Sheet1）のA２が空白の場合
「実行時エラー　１３　　型が一致しません。」

※A2に連番「１」を入力された状態では正常に起動します
この場合データの全削除が出来ない状態です。

◆実現したいこと
データが空白のとき、A2に「１」を代入する追加コードを入れたい

◆試したことは以下のコード（何れもエラー）
⓵Worksheets("Sheet1").Range("A1").Value = 1　をフォーム開くコードに追加
⓶
Sub　値の代入()
Worksheets("Sheet1").Range("A1").Value = 1　　
End Sub

説明が下手で申し訳ありませんが宜しくお願い致します。

‘――――――フォーム開くコードーーーーーー
Sub ShowUserForm()
    UserForm１.Show vbModeless
       Sheets("Sheet1").Select
       Range("A2").Select
 End Sub
――――――――――――――――――――――

Private Sub cmd登録_Click()
‘――――――――中略――――――――――
If Range("F1").Offset(1).Value = "" Then
        Range("F1").Offset(1).Value = txt連番.Value
        Else
   End If
        Dim i As Integer
       　　 i = 1
        Do While Cells(i + 1, "F").Value <> ""　‘F列の空欄以外に対する処理
       　　 Cells(i + 1, "A").Value = i
       　　 i = i + 1
       Loop
‘――――――――中略――――――――――
‘※ユーザーフォームをsheetに代入後
　‘内容をクリアーのコードを記載
End　Sub

‘――――――A列の連番最終を確認するコード――――――――――
Private Sub UserForm1_initialize()　‘初期値？
　 UserForm1.txt連番.Value = Worksheets("Sheet1").Range("A65536").End(xlUp)
   UserForm1.Show         
End Sub

ワークシート、UserForm、エラーコードを画像で貼り付けます。

Answer 1

初期化プロシージャーに施した

◆試したことは以下のコード（何れもエラー）
⓵Worksheets("Sheet1").Range("A1").Value = 1　をフォーム開くコードに追加

を、下記のように変えてみたらどうでしょう。

If Worksheets("Sheet1").Range("A2").Value = "" then
    Worksheets("Sheet1").Range("A2").Value = 1
End If

Comments

[masayone]

3109さんいつもありがとうございます。
どの部分に施したらいいのか迷いましたが、以下の所にコードを
貼付けることで見事に実現できました。
本当にいつも迅速なご回答、感謝します。
今後とも宜しくお願い致します。
※３１０９さんをフォローさせて頂いていますが、回答依頼依頼を出来るユーザーに表示されておらず、ご指名できません。
ご迷惑でなければご回答依頼を出来るようにならないでしょうか？

Private Sub UserForm1_initialize()　‘初期値？
If Worksheets("Sheet1").Range("A2").Value = "" then
Worksheets("Sheet1").Range("A2").Value = 1
End If
　 UserForm1.txt連番.Value = Worksheets("Sheet1").Range("A65536").End(xlUp)
UserForm1.Show
End Sub

[3109]

"UserForm1"が作成中の入力フォームを指す名称なら
それでOKです。

"initialize"は言葉の通り初期化のことで、
ユーザーフォームが呼び出された際に動作します。

利用情報登録ごとに動作させたい文は
"cmd登録_Click()”内に、
呼出時1回きりでよいものは
前述のプロシージャーの中に記述します。

私はウィークデーはほぼteratailを見られないですし、
不特定多数に尋ねた方が
早く正しい正解にたどり着くことができると思います。

VBAの初歩的な質問で、
たまたま時間が合うことがあれば、
私も力になりたいと思います。

[masayone]

3109さん
返信が遅くなりました。
ありがとうございます。今後とも宜しくお願い致します。