Sub RECAP()
Dim y As Byte
Dim x As String, z As String
With Sheets("Recap")
For y = 1 To Worksheets.Count
If Sheets(y).Name <> "RECAP" Then
x = Sheets(y).Name & "!R7C3:R20C3"
z = Sheets(y).Name & "!R7C5:R20C5"
.Cells(y + 5, 3).FormulaArray = _
"=SUM(IF(LEFT(" & x & ", 3)=""BL1""," & z & "))"
End If
Next y
End With
End Sub