Karıştırmışsınız bayağı bir neyse düzeltiyorum.
Calculate kodunda alttaki kod var ne için kullanıyorsunuz buda devamlı çalışıyor ve 24 ve 41 nedir bence buna gerekte yok.

With syfAktif
If .Name <> "Sayfa1" Then Exit Sub
For k = 24 To 41
' Eğer hücre boş değilse, satırı görünür yap
If .Cells(k, 2).Value <> "" Then
.Rows(k).Hidden = False
ElseIf Not .Rows(k).Hidden Then
.Rows(k).Hidden = True
End If
Next k
End With