Necesito modificar una macro para incluir función STdev

Hola, tengo una macro que importa datos de una base de datos en SQL, la cual trabaja sin problemas, la información que se recolecta son nombres de productos con sus respectivos pesos.
El detalle es que ahora se requiere que esta aplicación pueda ejecutar las función STdev y AVERAGE, yo encontré un link en youtube que me indica como puedo hacer esto:
http://www.youtube.com/watch?v=IxiQNVuE1Tc
La aplicación en excel esta compuesta de 02 PESTAÑAS,
En la 1era. Esta la info cruda importada de la base de datos SQL (la info esta detallada por código con sus respectivos pesos).
En la 2da. Esta el resumen de producción por código (Producción total del codigox, y, z, etc), es en esta pestaña donde se requiere aplicar las funciones indicadas.
El inconveniente es que mi experiencia con Excel es casi "0".
Adjunto código macro:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'SENTENCIA QUE CIERRA LA HOJA DE EXCEL SIN GUARDAR LOS CAMBIOS
'ActiveWorkbook.Close False
End Sub
Private Sub Workbook_Open()
' Macro recorded 18/10/2011 by GOODYEAR PERÚ
'
' SOLICITA INGRESAR DATOS DE FECHAS Y HORA PARA HACER LA CONSULTA
StartDate = Format(InputBox("Enter start date:"), "yyyy-mm-dd hh:mm:ss")
EndDate = Format(InputBox("Enter end date:"), "yyyy-mm-dd hh:mm:ss")
Range("B5").Value = StartDate
Range("B6").Value = EndDate
'ActiveCell.FormulaR1C1 = "2011-10-15 00:00:00"
' SENTENCIAS PARA HACER EL QUERY A LA BASE DE DATOS
Range("A6").Select
Columns("A:A").EntireColumn.AutoFit
Columns("A:A").ColumnWidth = 19.43
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DRIVER=SQL Server;SERVER=10.87.1.227;NO OBSTANTE=SQL_user;;APP=Microsoft Data Access Components;WSID=PE01WL030;DATABASE=GOODYEAR" _
, Destination:=Range("A8"))
.CommandText = Array( _
"SELECT ITW1.CORRELATIVO, ITW1.CODIGO_PRODUCTO, ITW1.CODIGO_VERDE, ITW1.MEDIDA, ITW1.PESO_ESPEC, ITW1.PESO_MEDIDO, ITW1.UPPER, ITW1.LOWER, ITW1.TIEMPO" & Chr(13) & "" & Chr(10) & "FROM GOODYEAR.dbo.IT" _
, _
"W1" & Chr(13) & "" & Chr(10) & "WHERE (ITW1.TIEMPO>{ts '" & StartDate & "'}) and (ITW1.TIEMPO<{ts '" & EndDate & "'})" & Chr(13) & "" & Chr(10) & "ORDER BY ITW1.TIEMPO" _
)
.Name = "Query from Test_SQL_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=True
Range("B5").Select
Sheets("Sheet2").Select
Range("B5").Select
ActiveCell.FormulaR1C1 = "=Sheet1!RC"
Range("B6").Select
ActiveCell.FormulaR1C1 = "=Sheet1!RC"
Range("A8:I8").Select
Selection.AutoFilter
End With
' Process Code 1
Sheets("Sheet2").Select
Range("I9").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Sheet1!R[0]C[-7]:R[65527]C[-7],Sheet2!RC[-7])"
' Process Code 2
Sheets("Sheet2").Select
Range("I10").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Sheet1!R[-1]C[-7]:R[65526]C[-7],Sheet2!RC[-7])"
' Process Code 3
Sheets("Sheet2").Select
Range("I11").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Sheet1!R[-2]C[-7]:R[65525]C[-7],Sheet2!RC[-7])"
' Process Code 4
Sheets("Sheet2").Select
Range("I12").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Sheet1!R[-3]C[-7]:R[65524]C[-7],Sheet2!RC[-7])"
' Process Code 5
Sheets("Sheet2").Select
Range("I13").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Sheet1!R[-4]C[-7]:R[65523]C[-7],Sheet2!RC[-7])"
' Process Code 6
Sheets("Sheet2").Select
Range("I14").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Sheet1!R[-5]C[-7]:R[65522]C[-7],Sheet2!RC[-7])"
' Process Code 7
Sheets("Sheet2").Select
Range("I15").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Sheet1!R[-6]C[-7]:R[65521]C[-7],Sheet2!RC[-7])"
' Process Code 8
Sheets("Sheet2").Select
Range("I16").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Sheet1!R[-7]C[-7]:R[65520]C[-7],Sheet2!RC[-7])"
' Process Code 9
Sheets("Sheet2").Select
Range("I17").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Sheet1!R[-8]C[-7]:R[65519]C[-7],Sheet2!RC[-7])"
' Process Code 10
Sheets("Sheet2").Select
Range("I18").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Sheet1!R[-9]C[-7]:R[65518]C[-7],Sheet2!RC[-7])"
' Process Code 11
Sheets("Sheet2").Select
Range("I19").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Sheet1!R[-10]C[-7]:R[65517]C[-7],Sheet2!RC[-7])"
' Process Code 12
Sheets("Sheet2").Select
Range("I20").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Sheet1!R[-11]C[-7]:R[65516]C[-7],Sheet2!RC[-7])"
' Process Code 13
Sheets("Sheet2").Select
Range("I21").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Sheet1!R[-12]C[-7]:R[65515]C[-7],Sheet2!RC[-7])"
' Process Code 14
Sheets("Sheet2").Select
Range("I22").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Sheet1!R[-13]C[-7]:R[65514]C[-7],Sheet2!RC[-7])"
' Process Code 15
Sheets("Sheet2").Select
Range("I23").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Sheet1!R[-14]C[-7]:R[65513]C[-7],Sheet2!RC[-7])"
' Process Code 16
Sheets("Sheet2").Select
Range("I24").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Sheet1!R[-15]C[-7]:R[65512]C[-7],Sheet2!RC[-7])"
' Process Code 17
Sheets("Sheet2").Select
Range("I25").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Sheet1!R[-16]C[-7]:R[65511]C[-7],Sheet2!RC[-7])"
' Process Code 18
Sheets("Sheet2").Select
Range("I26").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Sheet1!R[-17]C[-7]:R[65510]C[-7],Sheet2!RC[-7])"
' Process Code 19
Sheets("Sheet2").Select
Range("I27").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Sheet1!R[-18]C[-7]:R[65509]C[-7],Sheet2!RC[-7])"
' Process Code 20
Sheets("Sheet2").Select
Range("I28").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Sheet1!R[-19]C[-7]:R[65508]C[-7],Sheet2!RC[-7])"
' Process Code 21
Sheets("Sheet2").Select
Range("I29").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(Sheet1!R[-20]C[-7]:R[65507]C[-7],Sheet2!RC[-7])"
' Process Code 22
Sheets("Sheet2").Select
...