Recording a number in a cell every 15 minutes

Something along the lines of:
This stores a series of values in column E (time now) and F the result from B3
taking the data from B3

Sub GetData()
    Dim rng As Range
    Dim i As Long
    Dim dte As Date
    Dim dteNext As Date
    
    dte = Now
    Set rng = activesheet.Range("E1")
    For i = 1 To 3                                  'change this to number of time to loop
        ThisWorkbook.RefreshAll
        DoEvents
        Set rng = rng.Offset(1)
        rng = Now
        rng.Offset(, 1) = activesheet.Range("B3")
        dteNext = dte + TimeSerial(Hour:=0, Minute:=1 * i, Second:=0)   'change this value to number of minutes
        Application.Wait dteNext
    Next
    MsgBox "done"
End Sub