Recording contents of cells into multiple columns

deleted: see my next post

Ok, I have had a bit of a look and I think the code below should do the job.
What you do need to do is make sure that the connection is set with the "enable background refresh" to "off" ie un-ticked.
: on the data tab ... go to connections ... existing connections and pick properties

Sub GetData2()
    Dim rng As Range
    Dim i As Long
    Dim dte As Date
    Dim dteNext As Date
    Dim iMax As Long
    Dim wkb As Workbook
    
    Set wkb = ThisWorkbook
    dte = Now
    Set rng = ActiveSheet.Range("M1")
    iMax = 3 'change this to number of time to loop
    For i = 1 To iMax
        wkb.RefreshAll
        
        
        rng = Now
        
        ''
        ''change this block to the actually addresses you need
        ''
        rng.Offset(, 1) = ActiveSheet.Range("B3")   '1st piece of data
        rng.Offset(, 2) = ActiveSheet.Range("B15")  '2nd piece of data
        rng.Offset(, 3) = ActiveSheet.Range("B16")  '3rd piece of data
        
        Set rng = rng.Offset(1)
        dteNext = dte + TimeSerial(Hour:=0, Minute:=1 * i, Second:=0) 'change this value to number of minutes
        'Application.Wait dteNext
        If i <> iMax Then Do: DoEvents: rng = Now: Loop Until Now >= dteNext
    Next
    MsgBox "done"
End Sub