MsgBox

マクロを起動させた時に、処理を質問表示させる様にします。
ここでは、はい（Y)で実行、いいえ（N)で何もせずに終了します。
（はい（Y)で最初から最後のデータまで処理しています。）

●印表示処理に時間がかかるので、実行するか確認のために「開始しますか？」を
表示させ、下のボタン選択押下します。（4000行を超えるデータで時間がかかるｗ）

変数　知らなかった本当の使い方！ - 趣味のエクセルで当てようロト・ナンバーズ
Sub patapata_3()  '当選数字ﾊﾟﾀｰﾝ貼付け

Dim i As long, j As long, dai As long, lastkai As long
Dim daida As String

 Sheets("原本").Select
 lastkai = Cells(1, 12) + 3
 
    start = MsgBox("開始しますか？", vbYesNo)
　If start = vbNo Then End　’もし、いいえならマクロ終了

saikeisanoff
 Range("by3:cj5000").ClearContents

ー略ー

End Sub

-------------------------------------------------------------------------------------------------

InputBox

マクロ起動で入力をうながします。
入力し「OK」ボタン押下で検索処理をします。

Sub box_kensaku()　'　検索して入力
Dim bango As String

  On Error GoTo errorcheck
Sheets("box").Select
  Range("B3:W65").Select
   bango = InputBox("box番号入力して下さい", Default:=Cells(1, 25))
  
   If Len(bango) <> 4 Then MsgBox ("4桁で番号入力してください。"): End
  
   Cells(1, 25) = bango
’　入力したbangoを検索する
    Selection.Find(What:=bango, After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, MatchByte:=False, SearchFormat:=False).Activate

ー略ー

 End Sub

両方を組み合わせて処理しています。InputBox　→　MsgBox

マクロ作成方法19（新規と変更） - 趣味のエクセルで当てようロト・ナンバーズ

Office　TANAKA　さんのサイトには詳しい説明が載っていました。
私も勉強したいと思います。
エクセルマクロ情報サイト - 趣味のエクセルで当てようロト・ナンバーズ
忘れる「ユーザーホーム」思い出して - 趣味のエクセルで当てようロト・ナンバーズ