Sub update()
'open dde link
Dim data
RSIchan = DDEInitiate("RSLinx", "SP_ROBOT")
'-------------------------------------
'Handle first column: Timestamp
'-------------------------------------
'First timestammp data file is F74
'-------------------------------------
data = DDERequest(RSIchan, "F74:0,L32,C1")
Worksheets("raw data").Range("A2:A33").Value = data
data = DDERequest(RSIchan, "F74:32,L32,C1")
Worksheets("raw data").Range("A34:A65").Value = data
data = DDERequest(RSIchan, "F74:64,L32,C1")
Worksheets("raw data").Range("A66:A97").Value = data
data = DDERequest(RSIchan, "F74:96,L32,C1")
Worksheets("raw data").Range("A98:A129").Value = data
data = DDERequest(RSIchan, "F74:128,L32,C1")
Worksheets("raw data").Range("A130:A161").Value = data
data = DDERequest(RSIchan, "F74:160,L32,C1")
Worksheets("raw data").Range("A162:A193").Value = data
data = DDERequest(RSIchan, "F74:192,L32,C1")
Worksheets("raw data").Range("A194:A225").Value = data
data = DDERequest(RSIchan, "F74:224,L32,C1")
Worksheets("raw data").Range("A226:A257").Value = data
'-------------------------------------
'Next timestammp data file is F75
'-------------------------------------
data = DDERequest(RSIchan, "F75:0,L32,C1")
Worksheets("raw data").Range("A258:A289").Value = data
data = DDERequest(RSIchan, "F75:32,L32,C1")
Worksheets("raw data").Range("A290:A321").Value = data
data = DDERequest(RSIchan, "F75:64,L32,C1")
Worksheets("raw data").Range("A322:A353").Value = data
data = DDERequest(RSIchan, "F75:96,L32,C1")
Worksheets("raw data").Range("A354:A385").Value = data
data = DDERequest(RSIchan, "F75:128,L32,C1")
Worksheets("raw data").Range("A386:A417").Value = data
data = DDERequest(RSIchan, "F75:160,L32,C1")
Worksheets("raw data").Range("A418:A449").Value = data
data = DDERequest(RSIchan, "F75:192,L32,C1")
Worksheets("raw data").Range("A450:A481").Value = data
data = DDERequest(RSIchan, "F75:224,L32,C1")
Worksheets("raw data").Range("A482:A513").Value = data
'-------------------------------------
'Next timestammp data file is F76
'-------------------------------------
data = DDERequest(RSIchan, "F76:0,L32,C1")
Worksheets("raw data").Range("A514:A545").Value = data
data = DDERequest(RSIchan, "F76:32,L32,C1")
Worksheets("raw data").Range("A546:A577").Value = data
data = DDERequest(RSIchan, "F76:64,L32,C1")
Worksheets("raw data").Range("A578:A609").Value = data
data = DDERequest(RSIchan, "F76:96,L32,C1")
Worksheets("raw data").Range("A610:A641").Value = data
data = DDERequest(RSIchan, "F76:128,L32,C1")
Worksheets("raw data").Range("A642:A673").Value = data
data = DDERequest(RSIchan, "F76:160,L32,C1")
Worksheets("raw data").Range("A674:A705").Value = data
data = DDERequest(RSIchan, "F76:192,L32,C1")
Worksheets("raw data").Range("A706:A737").Value = data
data = DDERequest(RSIchan, "F76:224,L32,C1")
Worksheets("raw data").Range("A738:A769").Value = data
'-------------------------------------
'Next timestammp data file is F77
'-------------------------------------
data = DDERequest(RSIchan, "F77:0,L32,C1")
Worksheets("raw data").Range("A770:A801").Value = data
data = DDERequest(RSIchan, "F77:32,L32,C1")
Worksheets("raw data").Range("A802:A833").Value = data
data = DDERequest(RSIchan, "F77:64,L32,C1")
Worksheets("raw data").Range("A834:A865").Value = data
data = DDERequest(RSIchan, "F77:96,L32,C1")
Worksheets("raw data").Range("A866:A897").Value = data
data = DDERequest(RSIchan, "F77:128,L32,C1")
Worksheets("raw data").Range("A898:A929").Value = data
data = DDERequest(RSIchan, "F77:160,L32,C1")
Worksheets("raw data").Range("A930:A961").Value = data
data = DDERequest(RSIchan, "F77:192,L32,C1")
Worksheets("raw data").Range("A962:A993").Value = data
data = DDERequest(RSIchan, "F77:224,L32,C1")
Worksheets("raw data").Range("A994:A1025").Value = data
'-------------------------------------
'Handle next column: Event Code
'-------------------------------------
'First Event Code data file is N78
'-------------------------------------
data = DDERequest(RSIchan, "N78:0,L64,C1")
Worksheets("raw data").Range("B2:B65").Value = data
data = DDERequest(RSIchan, "N78:64,L64,C1")
Worksheets("raw data").Range("B66:B129").Value = data
data = DDERequest(RSIchan, "N78:128,L64,C1")
Worksheets("raw data").Range("B130:B193").Value = data
data = DDERequest(RSIchan, "N78:192,L64,C1")
Worksheets("raw data").Range("B194:B257").Value = data
'-------------------------------------
'Next Event Code data file is N79
'-------------------------------------
data = DDERequest(RSIchan, "N79:0,L64,C1")
Worksheets("raw data").Range("B258:B321").Value = data
data = DDERequest(RSIchan, "N79:64,L64,C1")
Worksheets("raw data").Range("B322:B385").Value = data
data = DDERequest(RSIchan, "N79:128,L64,C1")
Worksheets("raw data").Range("B386:B449").Value = data
data = DDERequest(RSIchan, "N79:192,L64,C1")
Worksheets("raw data").Range("B450:B513").Value = data
'-------------------------------------
'Next Event Code data file is N80
'-------------------------------------
data = DDERequest(RSIchan, "N80:0,L64,C1")
Worksheets("raw data").Range("B514:B577").Value = data
data = DDERequest(RSIchan, "N80:64,L64,C1")
Worksheets("raw data").Range("B578:B641").Value = data
data = DDERequest(RSIchan, "N80:128,L64,C1")
Worksheets("raw data").Range("B642:B705").Value = data
data = DDERequest(RSIchan, "N80:192,L64,C1")
Worksheets("raw data").Range("B706:B769").Value = data
'-------------------------------------
'Next Event Code data file is N81
'-------------------------------------
data = DDERequest(RSIchan, "N81:0,L64,C1")
Worksheets("raw data").Range("B770:B833").Value = data
data = DDERequest(RSIchan, "N81:64,L64,C1")
Worksheets("raw data").Range("B834:B897").Value = data
data = DDERequest(RSIchan, "N81:128,L64,C1")
Worksheets("raw data").Range("B898:B961").Value = data
data = DDERequest(RSIchan, "N81:192,L64,C1")
Worksheets("raw data").Range("B962:B1025").Value = data
'-------------------------------------
'Handle next column: Event Data
'-------------------------------------
'First Event Data file is N82
'-------------------------------------
data = DDERequest(RSIchan, "N82:0,L64,C1")
Worksheets("raw data").Range("C2:C65").Value = data
data = DDERequest(RSIchan, "N82:64,L64,C1")
Worksheets("raw data").Range("C66:C129").Value = data
data = DDERequest(RSIchan, "N82:128,L64,C1")
Worksheets("raw data").Range("C130:C193").Value = data
data = DDERequest(RSIchan, "N82:192,L64,C1")
Worksheets("raw data").Range("C194:C257").Value = data
'-------------------------------------
'First Event Data file is N83
'-------------------------------------
data = DDERequest(RSIchan, "N83:0,L64,C1")
Worksheets("raw data").Range("C258:C321").Value = data
data = DDERequest(RSIchan, "N83:64,L64,C1")
Worksheets("raw data").Range("C322:C385").Value = data
data = DDERequest(RSIchan, "N83:128,L64,C1")
Worksheets("raw data").Range("C386:C449").Value = data
data = DDERequest(RSIchan, "N83:192,L64,C1")
Worksheets("raw data").Range("C450:C513").Value = data
'-------------------------------------
'First Event Data file is N84
'-------------------------------------
data = DDERequest(RSIchan, "N84:0,L64,C1")
Worksheets("raw data").Range("C514:C577").Value = data
data = DDERequest(RSIchan, "N84:64,L64,C1")
Worksheets("raw data").Range("C578:C641").Value = data
data = DDERequest(RSIchan, "N84:128,L64,C1")
Worksheets("raw data").Range("C642:C705").Value = data
data = DDERequest(RSIchan, "N84:192,L64,C1")
Worksheets("raw data").Range("C706:C769").Value = data
'-------------------------------------
'First Event Data file is N85
'-------------------------------------
data = DDERequest(RSIchan, "N85:0,L64,C1")
Worksheets("raw data").Range("C770:C833").Value = data
data = DDERequest(RSIchan, "N85:64,L64,C1")
Worksheets("raw data").Range("C834:C897").Value = data
data = DDERequest(RSIchan, "N85:128,L64,C1")
Worksheets("raw data").Range("C898:C961").Value = data
data = DDERequest(RSIchan, "N85:192,L64,C1")
Worksheets("raw data").Range("C962:C1025").Value = data
'close dde link
DDETerminate (RSIchan)
End Sub