[VBA Excel]Ridimensionare Range e Calcolo Media

[G@lc81]

Ciao a tutti,
ho un range definito in questa maniera
Set RangeProces = ActiveWorkbook.Sheets("TEST").Range("B4:H34")
e vorrei inserire questo range all'interno di un ciclo for in maniera tale da poter calcolare per ogni colonna il valore medio :
For c = 1 To RangeLavoro.Columns.Count
For i = 1 To RangeLavoro.Rows.Count
Set RangeTemp = RangeProces(Cells(4, c), Cells(34, c))
MediaV = Application.Average(RangeTemp)
Non riesco a farlo funzionare pero'.
Sapreste darmi una mano?
Grazie mille