Worksheets("PL_det").Activate

.Sheets("Лист1").Visible = -1
.Sheets("Лист1").copy after:=wb.Sheets.Count
.Sheets("Лист2").Visible = -1
.Sheets("Лист2").copy after:=wb.Sheets.Count

Function MyRash(r As Range)
    Dim tValue, tArr
    With Application
        .Volatile
        tValue = .WorksheetFunction.VLookup(r.Value, Range("BaseD"), 3, False)
        tArr = Split(tValue, ".")
        For Each tValue In tArr
            MyRash = MyRash & "." & .WorksheetFunction.VLookup(tValue, Range("Rash"), 2, False)
        Next
    End With
    MyRash = Mid(MyRash, 2)
End Function

If wsheet.Name <> "MacrosTurningOn" Then wsheet.Visible = xlVeryHidden else wsheet.Visible = true

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Or Target.Column <> 13 Then Exit Sub
    If Target.Value = "да" Then
        With Worksheets("Лист1")
            Range(Cells(Target.Row, 1), Target.Offset(, -1)).Copy _
            Destination:=.Range("A1").Offset(.Range("A1").CurrentRegion.Rows.Count)
        End With
    End If
 End Sub

Sub test()
Dim r1 As Range, r2 As Range
Dim arr_1(), arr_2()
Dim v
Dim i As Long
Dim k As Long

v = [A1]
Set r1 = Range("B16:D19") ' диапазон таблицы процентов
Set r2 = Range("F16:H19") ' диапазон таблицы с 1 и 0
arr_1 = r1.Value
arr_2 = r2.Value

For i = 1 To UBound(arr_2, 1)
    For k = 1 To UBound(arr_2, 2)
        If arr_2(i, k) = 1 Then arr_1(i, k) = v
    Next k
Next i
r1.Value = arr_1
End Sub

Application.ScreenUpdating = True

=СУММЕСЛИМН(Диап_Суммирования;Диап_Дат;">="&АдресЯчейкиСначальнойДатой;Диап_Дат;"<="&АдресЯчейкиСКонечнойДатой)

Sub test()
Dim i As Long
For i = 1 To Range("Second_Range").Count
    If Range("Second_Range")(i) = 1 Then Range("First_Range")(i) = [A1]
Next i
End Sub