Option Explicit
 
Public bStart As Boolean
 
Sub HeartChart()
 
Dim i As Long: Dim x As Long
bStart = Not bStart
 
Do
    For i = 시작 To 종료 Step 단계  '<- 시작값, 종료값, 단계를 입력합니다.
        If bStart = True Then
            For x = 1 To 100000000: x = x + 1: Next
            DoEvents
            Range("셀주소").Value = i  '<- 셀 주소를 입력합니다.
        Else
            Exit Sub
        End If
    Next
Loop While bStart = True
 
End Sub