Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim wsChange As Worksheet
    Dim newrow As Long
    Dim rng As Range

    If Sh.Name <> "Судебные дела" Then Exit Sub

    Set wsChange = ThisWorkbook.Sheets("Изменения")

    For Each rng In wsChange.Range("A:A")
        If rng.Value = Target.Address Then
            rng.Value = Format(Now, "dd.mm.yyyy")
            rng.Offset(0, 1).Formula = "='Судебные дела'!B4 & ' ' & 'Судебные дела'!C4 & ' ' & 'Судебные дела'!D4"
            rng.Offset(0, 2).Interior.Color = RGB(255, 0, 0)
            Exit Sub
        End If
    Next rng

    newrow = wsChange.Cells(Rows.Count, 1).End(xlUp).Row + 1

    wsChange.Cells(newrow, 1).Value = Format(Now, "dd.mm.yyyy")
    wsChange.Cells(newrow, 2).Formula ="='Судебные дела'!B4 & ' ' & 'Судебные дела'!C4 & ' ' & 'Судебные дела'!D4"
    wsChange.Cells(newrow, 3).Interior.Color = RGB(255, 0, 0)
    wsChange.Cells(newrow, 3).Value = Target.Value
End Sub