ThisWorkbook.ActiveSheet

ThisWorksheet 

Function äëÿñèò(Diapozon As Range) As Long
'äëÿ ñèòóàöèè
Application.Volatile
Dim n As Long
Dim C As Range
Dim m As Long

m = -1
n = 0
For Each C In Diapozon.Rows

If C.Value = 1 Then
m = m + 1
   If ThisWorkbook.ActiveSheet.Cells(101, 42 + (m * 21)).Value = 1 Then
     n = n + 1
   End If
End If
Next C

äëÿñèò = n
End Function