Con una fórmula lo veo complicado de resolver, se podría pero sería una fórmula muuuy larga y tediosa y complicada de modificar en el futuro, de modo que he hecho una rutina que funciona correctamente:
Sub horastriples()
'cambia "Hoja1" por el nombre de la hoja donde tengas los datos
Worksheets("Hoja1").Activate
'cambia los siguientes valores 1, 7, 13, 2, 15 y 3 según tu caso particular:
colini = 1 'número de primera columna con datos, en tu caso la "H", es decir, la 8
colfinal = 7 'número de la última columna con datos, en tu caso la "T", es decir, la 20
colresults = 13 'número de columna donde tienen que ir los resultados, en tu caso no lo sé.. la aprox 25?
filaini = 2 'número de la primera fila con datos, en tu caso, quizá la 11?
filafinal = 15 'número de la última fila con datos, en tu caso quizá la 30 aprox..
diac = 3 'número de días con horas extras a partir del que se empiezan a contar como triples
'--------------------------------------------------------------------------------------------------------
For B = filaini To filafinal
Dim X() As Integer
ReDim X(7)
P = 0
ht = 0
resu = 0
For C = colini To colfinal
If IsNumeric(Cells(B, C).Text) Then
X(P) = Cells(B, C).Value
P = P + 1
End If
Next
For d = 0 To P
If d > diac - 1 Then
If X(d) > 3 Then
resu = resu + 3
Else
resu = resu + X(d)
End If
Else
If X(d) > 3 Then
resu = resu + (X(d) - 3)
End If
End If
Next
Cells(B, colresults).Value = resu
Erase X
Next
End Sub
Debes adaptar la primera parte, dónde se definen los parámetros de filas y columnas iniciales y finales, etc.
Si tienes alguna duda de dónde colocar el código y cómo hacer para que funcione te lo explico.