CICLOS!

para hallar la definitiva :

Private Sub CommandButton1_Click()

For a = 2 To 5

Cells(a, 5) = (Cells(a, 2) * 0.3) + (Cells(a, 3) * 0.3) + (Cells(a, 4) * 0.4)

Next

End Sub

para el promedio:

Private Sub CommandButton2_Click()

For i = 2 To 5

Cells(6, 5) = Cells(6, 5) + Cells(i, 5)

Next

Cells(6, 5) = Cells(6, 5) / 4

End Sub

para borrar lo anterior:

Private Sub CommandButton3_Click()

For a = 2 To 6

Cells(a, 5) = Clear

Next

End Sub