Média de MAC0113
Sub MediaMAC113()
Dim T1, T2, P1, P2, Media As Double
T1=Cells(1,1)
P1=Cells(1,2)
T2=Cells(1,3)
P2=Cells(1,4)
Media = (sqr(T1*P1)+sqr(T2*P2))/2
Cells(2,1)=Media
End Sub