I Need to get Average data of 5 minutes of Live RTD Data

[athul]

Hi Dear ,

I Need to get Average data for 5 minutes from Live RTD Data , Could Someone please help me
I mean 5 min data = 300 seconds
So average of 300 seconds data
my live Data is on Column B1:B401
I need to get average Data to Next Column .
I have tried one code but its working only copy 1s but i dont know how to copy the data for 300 s times and calculate the average

please help me

Thanks

 

[athul]

Option Explicit

Sub find5minsma1s()

'Author AN
'Part of SM Project

Range("B2:B401").Select
Selection.Copy
Range("I2:I401").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.OnTime Now() + TimeValue("00:00:01"), "find5minsma"
Application.ScreenUpdating = False

End Sub