Recording contents of cells into multiple columns

Hi all, I was given this answer by Tony H to my question about recording the contents of a cell which is linked to an IP address every 15 minutes into a column and it works. I would now like to record 12 different IP addresses into columns for Temperature and Humidity of Data halls but I'm stuck. Can anyone help please.
Code:
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
Code:

A note on Forum Rules: when posting code you must use code tage. That is you start your code with (but without the space) [co de] and end with [/co de]

I presume you have set up the links as before. I have added in a couple of example lines. It stores all the values in adjacent columns

Please Login or Register  to view this content.

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

Please Login or Register  to view this content.