Ho un problema di programmazione in Excel.

L'esercizio consiste nel calcolare la media e il numero dipendenti di un'azienda nei vari settori.
Bisogna farlo in Visual Basic.
Ci è stato consegnato un file con all'interno una Sub e Due Funzioni che dobbiamo ancora definire.

Option Explicit

Sub CreaRiepilogo()

' crea un riepilogo delle sezioni

Dim wsRiepilogo As Worksheet ' contiene il foglio di riepilogo
Dim wsSezione As Worksheet ' contiene i fogli delle sezioni

Dim nSezioni As Integer ' contiene il numero delle sezioni

Dim nDipendenti As Integer ' contiene il numero dei dip. della sezione
Dim mStipendio As Currency ' contiene la media stip. dei dip. della sezione

Set wsRiepilogo = ActiveWorkbook.Sheets("RiepilogoSezioni")

' pulisce il riepilogo
wsRiepilogo.Cells.Clear

nSezioni = 0

For Each wsSezione In ActiveWorkbook.Sheets

If wsSezione.Name <> "RiepilogoSezioni" Then

' non e' foglio di riepilogo
' quindi e' un foglio di una sezione

' le sezioni trovate finora sono
nSezioni = nSezioni + 1

nDipendenti = ContaDipendenti(wsSezione)

mStipendio = MediaStipendio(wsSezione)

wsRiepilogo.Cells(nSezioni, 1) = wsSezione.Name
wsRiepilogo.Cells(nSezioni, 2) = nDipendenti
wsRiepilogo.Cells(nSezioni, 3) = mStipendio

End If

Next

End Sub

Function ContaDipendenti(foglio As Worksheet)
ContaDipendenti = 0
End Function

Function MediaStipendio(foglio As Worksheet)
MediaStipendio = 10000
End Function

I dati da contare sono disposti su 4 fogli diversi. E su un quinto foglio c'è il riepilogo.

Come devo modificare le funzioni per farsì che mi dia il risultato sperato?
è tutto in excel. E le due funzioni sopraindicate restituiscono 4 valori (in questo caso lo stesso valore "0") a tutte e 4 le sezioni.
Inoltre se siete così gentili mi potete spiegare la Sub? Perchè sinceramente non l'ho capita appieno.

Grazie