=IFERROR(SMALL(IF(Spare_parts.xlsm!Table6[[#All];[V0]]=$A3;Spare_parts.xlsm!Table6[[#All];[Contor]]);I$1)-SMALL(IF(Spare_parts.xlsm!Table6[[#All];[V0]]=$A3;Spare_parts.xlsm!Table6[[#All];[Contor]]);H$1);"")

=IFERROR(SMALL(IF('[Spare_parts.xlsm]DESCARCARE PIESE'!$M:$M=$A3;'[Spare_parts.xlsm]DESCARCARE PIESE'!$C:$C);I$1)-SMALL(IF('[Spare_parts.xlsm]DESCARCARE PIESE'!$M:$M=$A3;'[Spare_parts.xlsm]DESCARCARE PIESE'!$C:$C);H$1);"")

=IFNA(LOOKUP(2;1/(диапазоны!A:A<=A5)/(диапазоны!B:B>=A5);диапазоны!C:C);"не попадает в диапазон")

    If Target.Column <> 10 Or Target.Row >= 1 And Target.Row <= 2 Then Exit Sub
    If Target.Count > 1 Then Exit Sub

If Target.Cells.Count > 1 Then Exit Sub    If Not Intersect(Target, Range("J1:J1048576")) Is Nothing Then
        Dim iCell As Range
        Application.EnableEvents = False
        For Each iCell In Target
            With Range("K" & iCell.Row)
                .Value = DateValue(Now)
            End With
        Next iCell
        Application.EnableEvents = True
    End If

Private Sub Worksheet_Change(ByVal Target As Range)
      If Not Intersect(Target, Range("A1:L1048576")) Is Nothing Then
      If Target.Count > 1 Then Exit Sub
      If Target <> "" Then
   ActiveSheet.Unprotect Password:="123"
   Target.Locked = True
   ActiveSheet.Protect Password:="123"
      End If
      End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
      If Target.Cells.Count > 1 Then Exit Sub
   For Each Cell In Target
       If Not Intersect(Cell, Range("J1:J1048576")) Is Nothing Then
     With Range("K" & Cell.Row)
        .Value = DateValue(Now)
          End With
          End If
         Next Cell
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
       Target = UCase(Target)
End Sub

=(SMALL(IF(A:A=D2;B:B);1))

=SUM(--IF(H2:T2="New";(OFFSET(H2:T2;0;-1)+OFFSET(H2:T2;0;-2))))/(COUNTIF(H2:T2;"New")*2)

Sub CopyData()
    Dim Rng As Range, NumberOfWeek As String, LastRow As Long

    'çàïîìèíàåì â ïåðåìåííóþ çíà÷åíèå ÿ÷åéêè Ñ2 íà ëèñòå CalculationErrorData
    NumberOfWeek = Worksheets("CalculationErrorData").Range("C2").Value
    
    'ÁËÎÊ 1
    'èùåì íà ëèñòå Data by machine íîìåð íåäåëè èç ÿ÷åéêè Ñ2 ëèñòà CalculationErrorData
    With Worksheets("Data by machine")
        Set Rng = .Rows(2).Find(NumberOfWeek, , xlFormulas, xlWhole)
        If Rng Is Nothing Then
            MsgBox "Óïñ, íîìåð íåäåëè " & NumberOfWeek & " íå íàéäåí íà ëèñòå 'Data by machine'", vbExclamation, "Âíèìàíèå"
            Exit Sub
        End If
        'Rng - ýòî ÿ÷åéêà ñ íàéäåííûì íîìåðîì íåäåëè íà ëèñòå Data by machine
        'MsgBox "Ìû íàøëè ÿ÷åéêó ñ íîìåðîì íåäåëè " & NumberOfWeek & " â ÿ÷åéêå " & Rng.Address(0, 0) & " íà ëèñòå 'Data by machine'", vbInformation, "Óðà!"
        'Rng.Column - ýòî íîìåð ñòîëáöà ñ óêàçàííûì íîìåðîì íåäåëè íà ëèñòå Data by machine
        'Rng.Row - ýòî íîìåð ñòðîêè ñ óêàçàííûì íîìåðîì íà ëèñòå Data by machine
    End With
    
    'êîïèðóåì äàííûå ñ ëèñòà CalculationErrorData
    Worksheets("CalculationErrorData").Range("C3:C44").Copy
    'âñòàâëÿåì äàííûå íà ëèñò Data by machine íà÷èíàÿ ñ 3-é ñòðîêè
    Worksheets("Data by machine").Cells(Rng.Row + 1, Rng.Column).PasteSpecial Paste:=xlPasteValues
   
    'ÁËÎÊ 2
    'èùåì íà ëèñòå Top 3 errors by machine íîìåð íåäåëè èç ÿ÷åéêè Ñ2 ëèñòà CalculationErrorData
    With Worksheets("Top 3 errors by machine")
        Set Rng = .Rows(2).Find(NumberOfWeek, , xlFormulas, xlWhole)
        If Rng Is Nothing Then
            MsgBox "Óïñ, íîìåð íåäåëè " & NumberOfWeek & " íå íàéäåí íà ëèñòå 'Top 3 errors by machine'", vbExclamation, "Âíèìàíèå"
            Exit Sub
        End If
        'Rng - ýòî ÿ÷åéêà ñ íàéäåííûì íîìåðîì íåäåëè íà ëèñòå Top 3 errors by machine
        'MsgBox "Ìû íàøëè ÿ÷åéêó ñ íîìåðîì íåäåëè " & NumberOfWeek & " â ÿ÷åéêå " & Rng.Address(0, 0) & " íà ëèñòå 'Data by machine'", vbInformation, "Óðà!"
        'Rng.Column - ýòî íîìåð ñòîëáöà ñ óêàçàííûì íîìåðîì íåäåëè íà ëèñòå Top 3 errors by machine
        'Rng.Row - ýòî íîìåð ñòðîêè ñ óêàçàííûì íîìåðîì íà ëèñòå Top 3 errors by machine
    End With
    
    'êîïèðóåì äàííûå ñ ëèñòà CalculationErrorData
    With Worksheets("CalculationErrorData")
        'íîìåð ïîñëåäíåé ñòðîêè â ñòîëáöå Í íà ëèñòå CalculationErrorData
        LastRow = .Cells(.Rows.Count, "H").End(xlUp).Row
        .Range("G3:H" & LastRow).Copy
    End With
    'âñòàâëÿåì äàííûå íà ëèñò Top 3 errors by machine íà÷èíàÿ ñ 3-é ñòðîêè
    Worksheets("Top 3 errors by machine").Cells(Rng.Row + 1, Rng.Column).PasteSpecial Paste:=xlPasteValues
    
    
    'ÁËÎÊ 3
    'èùåì íà ëèñòå Quantity errors íîìåð íåäåëè èç ÿ÷åéêè Ñ2 ëèñòà CalculationErrorData
    With Worksheets("Quantity errors")
        Set Rng = .Rows(2).Find(NumberOfWeek, , xlFormulas, xlWhole)
        If Rng Is Nothing Then
            MsgBox "Óïñ, íîìåð íåäåëè " & NumberOfWeek & " íå íàéäåí íà ëèñòå 'Quantity errors'", vbExclamation, "Âíèìàíèå"
            Exit Sub
        End If
        'Rng - ýòî ÿ÷åéêà ñ íàéäåííûì íîìåðîì íåäåëè íà ëèñòå Quantity errors
        'MsgBox "Ìû íàøëè ÿ÷åéêó ñ íîìåðîì íåäåëè " & NumberOfWeek & " â ÿ÷åéêå " & Rng.Address(0, 0) & " íà ëèñòå 'Data by machine'", vbInformation, "Óðà!"
        'Rng.Column - ýòî íîìåð ñòîëáöà ñ óêàçàííûì íîìåðîì íåäåëè íà ëèñòå Quantity errors
        'Rng.Row - ýòî íîìåð ñòðîêè ñ óêàçàííûì íîìåðîì íà ëèñòå Quantity errors
    End With
    
    'êîïèðóåì äàííûå ñ ëèñòà CalculationErrorData
    With Worksheets("CalculationErrorData")
        'íîìåð ïîñëåäíåé ñòðîêè â ñòîëáöå L íà ëèñòå CalculationErrorData
        LastRow = .Cells(.Rows.Count, "L").End(xlUp).Row
        .Range("L3:L" & LastRow).Copy
    End With
    'âñòàâëÿåì äàííûå íà ëèñò Quantity errors íà÷èíàÿ ñ 3-é ñòðîêè
    Worksheets("Quantity errors").Cells(Rng.Row + 1, Rng.Column).PasteSpecial Paste:=xlPasteValues
       
    MsgBox "Êîïèðîâàíèå äàííûõ çàâåðøåíî!", vbInformation, "Êîíåö"
End Sub

=HYPERLINK("[Error Data per Week.xlsm]"&ADDRESS(1;MATCH(C2;'Data by machine'!A2:BC2;0);4;1;"Data by machine");"Data by machine")

Range("O1:R2").Select
    Application.Goto Reference:="'Data by machine'!R1C47"  

Sub test1()
'
' test1 Macro
'

'
    Range("C1:C44").Select
    Selection.Copy
    Range("O1:R2").Select
    Application.Goto Reference:="'Data by machine'!R1C47"
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Columns("G:H").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("O3:R4").Select
    Application.Goto Reference:="'Top 3 errors by machine'!R1C89"
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Columns("L:L").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("O5:R6").Select
    Application.Goto Reference:="'Quantity errors'!R1C46"
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub