Цитата ab79 (

)
добавленный вами "литрбол" он почему-то не считает
а там просто надо диапазон у формулы увеличить.
Код
=ЕСЛИ($I2="";0; СУММПРОИЗВ(($B$2:$D$20=$I2)*($B$1:$D$1=J$1)))
Вместо $D$8 поставьте нужную вам цифру.я поставил 20
Код подправил
Код
Sub TTT()
Dim t_&, t1&, t2&, t3&, i&, t4&
t_ = Cells(Rows.Count, 1).End(xlUp).Row
Range("B2:B" & t_).Copy
Range("S1").PasteSpecial
t1 = Cells(Rows.Count, 19).End(xlUp).Row
Range("C2:C" & t_).Copy
Range("S" & t1 + 1).PasteSpecial
t2 = Cells(Rows.Count, 19).End(xlUp).Row
Range("D2:D" & t_).Copy
Range("S" & t2 + 1).PasteSpecial
t3 = Cells(Rows.Count, 19).End(xlUp).Row
ActiveSheet.Range("S1:S" & t3).RemoveDuplicates Columns:=1, Header:=xlNo
t4 = Cells(Rows.Count, 19).End(xlUp).Row
For i = t4 To 1 Step -1
If Range("S" & i) = "" Then
Range("S" & i).Delete Shift:=xlUp
End If
Next
Range("S1:S" & t3).Copy
Range("I2").PasteSpecial
Range("S1:S" & t3).ClearContents
End Sub