Sub disable_keys() 
Application.OnKey "%{F8}", ""
Application.OnKey "%{F11}", ""
End Sub

Set lis = wb.Worksheets(23) - Как сделать что бы не было привязано 

Sub qwe()
Dim wb As Workbook
Dim lis As Worksheet
Dim r As Worksheet
Set wb = ThisWorkbook
Set lis = wb.Worksheets(23)
w = 2
    For Each r In wb.Worksheets
        If Left(r.Name, 4) = "Bina" Then
            q = 7
            i = r.Cells(Rows.Count, 2).End(xlUp).Row
            For n = 7 To i
               If r.Cells(n, 15) > 0 Then
                   lis.Cells(q, w) = r.Cells(n, 2)
                   lis.Cells(q, w + 1) = r.Cells(n, 15)
                   lis.Cells(q, w + 3) = r.Cells(n, 13)
                 
                   q = q + 1

                End If
                End If
            Next n
            w = w + 6
        End If

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A3:D5")) Is Nothing Then
        If Cells(Target.Row, 5).Value = "Çàêðûò" Then Cells(Target.Row, 2).Activate
    End If
End Sub

Range("A8").Select
    ActiveCell.FormulaR1C1

=СУММЕСЛИМН(Пят_Прод!F:F;Пят_Прод!C:C;$B:$B)+СУММЕСЛИМН(Пят_Прод!P:P;Пят_Прод!M:M;$B:$B