=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);"")

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

=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