Transforme a rotina numa função, assim
function sub ContarEng() as integer
'Verifica a quantidade de Engagements para definir a quantidade de Loops
Dim i As Integer
Dim x As Integer
x = 0
i = 8
While Cells("20", i) <> 0
x = x + 1
i = i + 3
Wend
ContarEng = x
End function
vc usaria numa fórmula na sua planilha
=contareng()
Opcionalmente, vc pode passar como parametro as linhas que vc quer contar.
João Eurico Consultor Manguetown - Brazil