丸が落下するだけ

#If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
#Else
Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
#End If


Sub game()
   Dim i As Integer
   
   For i = 2 To 10
       Cells(i - 1, 1) = ""
       Cells(i, 1) = "●"
       
       Sleep 250
       
   Next i
   
   Cells(10, 1) = ""
   
End Sub