Hi

In I1,

=MATCH(J1-INT(J1),C4:C47)

In H1, type 1. To stop macro type 0 in H1

Code:
Sub StartMacro()
    
    Dim r, t As Date, i As Long
    
    t = Now() + TimeSerial(0, 0, 5)
    
    Application.OnTime t, "StartMacro", , True
    
    r = [i1]
    i = [h1]
    
    If Not i = 0 Then
        If Not IsError(r) Then
            Range("d4:h4").AutoFill Range("d4:h4").Resize(r)
        End If
    Else
        Debug.Print Now
        Application.OnTime t, "StartMacro", , False
    End If
    
End Sub