Sub Macro1()
On Error Resume Next
    Sheets("pivot").PivotTables("PivotTable3").PivotFields("ФИО").CurrentPage = _
        Sheets("Информация").Cells(34, 2).Value
If Error Then
    MsgBox "Проверьте ФИО преподавателя на листе Информация"
    Sheets("pivot").PivotTables("PivotTable3").PivotFields("ФИО").ClearAllFilters
End If
End Sub

Dim k As Long
For k = 1 To Sheets("tech").Range("A" & Rows.Count).End(xlUp).Row 'цикл от 1 до ----последней непустой строки-----  в столбце A листа Tech
    On Error Resume Next '-----в случае ошибки переход к следующему оператору, т.е. без прерывания работы программы-----
    Sheets(Sheets("tech").Range("A" & k).Value).Select '-----выбор листа с именем, равным содержимому указанной ячейки------  из столбца A листа Tech
          Sheets("Макет").Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = Sheets("Tech").Range("A" & k) 'переименновываем имя нового листа в значение ячейки за дату на которую создаем
        ActiveSheet.Cells(2, 7).Value = "Лист " & (Workbooks(1).Sheets.Count - 3) 'Прописываем на листе порядковый номер
        rw = 7 'номер первой строки для выгрузки
        For i = 1 To UBound(a) 'проходим по строкам массива
    Dim lFirstRow As Long, rFndRng As Range
        Set rFndRng = ActiveSheet.UsedRange.Find("Итого за день", , xlFormulas, xlPart) 'ищем ячейку на активном листе, содержащую "Итого за день"
        If rFndRng Is Nothing Then 'Если не находим - прерываем, выводим уведомление
            MsgBox "Лист не содержит ИтогоЗаДень в листе", vbInformation, "Информация": Exit Sub
        End If
        lFirstRow = rFndRng.Row - 1 ' вычисляем строку, находящуюся выше ячейки с "Итого за день"
    'Копируем найденную строку и вставляем выше
    Rows(lFirstRow).Select
    Selection.Copy
    Selection.Insert Shift:=xlDown
        If CDate(a(i, 4)) = CDate(ActiveSheet.Name) Then 'если дата из четвертой колонки массива совпадает с именем активного листа то
            Cells(rw, 1) = a(i, 1) 'переносим на лист значения номера ПКО/РКО из массива
            Cells(rw, 2) = a(i, 3) 'переносим на лист значения контрагента из массива
            If a(i, 5) > 0 Then Cells(rw, 6) = a(i, 5) Else Cells(rw, 7) = a(i, 5) * (-1) 'переносим на лист суммы из массива, в зависимости от значения
            rw = rw + 1 'увеличиваем счётчик строк
        End If
        Next
Next k

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Range("C2:C5")) Is Nothing And Target.Cells.Count = 1 Then
        Application.EnableEvents = False
        If Len(Target.Offset(0, 1)) = 0 Then
            Target.Offset(0, 1) = Target
        Else
            Target.End(xlToRight).Offset(0, 1) = Target
        End If
        Target.ClearContents
        Application.EnableEvents = True
    End If
End Sub