Per quanto abbia capito, faccio un esempio col file di dodo47
Quando lo userai non avrai le Formule in F4:AG33 mà solo dei dati con (D,S,vuote)
Seleziono l'area F4:AG33 (copio), vado in cella F4 (incollo speciale/valori)
Elimino le colonne AU:AW e cancello le formule in C4:C33
Premesso che non mi piacciono le Function, questa è una SUB
Mouse destro sulla linguetta del foglio1 e premi visualizza codice
Sulla sinistra trova Modulo1 e doppio-clic
Adesso sulla destra cancella tutto ed inserisci il codice sotto...
Chiudi e ritorna sul foglio, sul tasto azzuro premi col tasto destro/assegna macro e scegli Conta_ssss_finali. OK e premi il bottone
Naturalmente non esendoci più le formule in F4:AG33, dovrai cambiare Tu quei dati e per riprovare ripremere il bottone. Se era questo il Tuo obbiettivo bene, oppure chiedo scusa che sicuramente non ho capito il problema
Option Explicit
Sub Conta_ssss_finali()
Dim Ur As Long, X As Long, Y As Long, Tot As Long
Ur = Range("F" & Rows.Count).End(xlUp).Row
For X = 4 To Ur
Tot = 0
For Y = 43 To 6 Step -1
If Cells(X, Y) <> "" Then
If Cells(X, Y) = "S" Then
Tot = Tot + 1
Else
Cells(X, 3) = Tot
Exit For
End If
End If
Cells(X, 3) = Tot
Next Y
Next X
End Sub