VBAコード記入VBEの背景色等を上のように変えて見ました。
いろいろ関係が分かるようになりました。

下の場合分からないですね？
Sub patapata_4() '当選数字ﾊﾟﾀｰﾝ貼付け(引張表作成)
Dim i As Long, j As Long, k As Long
Dim dbl As Long, kaigou As Long
Dim daida As String, Db As String
Dim start As Long, dai As Long
Dim witi As Long
start = MsgBox("開始しますか？", vbYesNo)
If start = vbNo Then End
' Worksheets("パターン表").Select
kaigou = Cells(1, 26)
Range(Cells(2, 17), Cells(kaigou + 1, 17)).Select
' Range("Q2:Q4500").Select
Selection.Copy
Range("BN2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Bo2:Bz5500", "ca2:ca5500").Select
Selection.ClearContents
Application.ScreenUpdating = False '画面変更をしない。
Call saikeisanoff
Range("BW2").Activate
'Range("Bn1").Activate
Erase hit
i = 2
Do Until Cells(i, 18) = ""
　dai = 0
For j = 1 To 4 '出目の入力
　hit(i - 1, j) = Cells(i, j + 17)
　If hit(i - 1, j) >= 5 Then dai = dai + 1
　kiguu(j) = Cells(i, j + 21)
　If kiguu(j) = "偶" Then kiguu(j) = "▲" Else kiguu(j) = "△"
If j = 4 Then
　Cells(i, 81) = kiguu(1) + kiguu(2) + kiguu(3) + kiguu(4)
End If
Next j
Select Case dai '大小の表示
Case 0: daida = "■■■■"
Case 1: daida = "■■■□"
Case 2: daida = "■■□□"