السلام عليكم
قمت بعمل دالة معرفة اسميتها Sub_Total
Function Sub_Total(MyRng As Range)
With MyRng
For R = .Row To .Rows.Count
If Cells(R, .Column).Value > 0 And Not IsEmpty(Cells(R, .Column)) And _
Cells(R, .Column).EntireRow.Hidden = False Then
T = T + 1
End If
Next
End With
Sub_Total = T
End Function
شاهد المرفق
Test.rar