Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A2:J3")) Is Nothing Then
        On Error Resume Next
        ActiveSheet.ShowAllData
      Range("A10").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("A2").CurrentRegion
    End If
End Sub

X = Cells(Rows.Count, "c").End(xlUp).Row
    Range("J7").Select
    Selection.FormulaArray = _
        "=INDEX('Лист1'!R6C20:R3600C20,MATCH(RC[-8]&"" ""&RC[-7],'Лист1'!R6C4:R3500C4&"" ""&'Лист1'!R6C5:R3500C5,0)+IFERROR(MATCH(1,--(OFFSET('Лист1'!R6C20,MATCH('Лист2'!RC[-8]&"" ""&'Лист2'!RC[-7],'Лист1'!R6C4:R3500C4&"" ""&'Лист1'!R6C5:R3500C5,0)-1,0,SUM(IF('Лист1'!R6C4:R3500C4&"" ""&'Лист1'!R6C5:R3500C5=RC[-8]&"" ""&RC[-7],1,0)))<>0),0),1)-1)"
    Range("J7").AutoFill Destination:=Range("J7:J" & X), Type:=xlFillDefault
 

Sub Макрос1()
    x = ActiveSheet.UsedRange.Rows.Count
    Range("T2").Select
    ActiveCell.Formula = "=f(RC[5])"
    Range("T2").AutoFill Destination:=Range("T2:T" & x), Type:=xlFillDefault
End Sub

 

 Sub Óäàëåíèå_ñòîëáèêîâ()
    Sheets("Èòîã").Select
    Columns("X:V").Select
    Selection.Delete Shift:=xlToLeft 
    Columns("P:P").Select
    Selection.Delete Shift:=xlToLeft
    Columns("M:N").Select
    Selection.Delete Shift:=xlToLeft
    Columns("K:K").Select
    Selection.Delete Shift:=xlToLeft
    Columns("I:I").Select
    Selection.Delete Shift:=xlToLeft
    Range("A7:C7").Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D3:T4" [IMG] ) Is Nothing Then
        On Error Resume Next
        ActiveSheet.ShowAllData
        Range("D7" [IMG] .CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("D3" [IMG] .CurrentRegion
    End If
End Sub
----------------------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rng As Range
Set rng = Range([e5], Cells(Rows.Count, 4).End(xlUp))
If Not Intersect(Target, rng) Is Nothing Then
    Call Module1.stancia(Target.Value)
    Cancel = True
End If
End Sub
----------------------------------------------------------------------------------------------------------------------------------------------------------------------
Такие же макросы стоят на втором листе, первый работает, а второй нет.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B2:J3"[IMG&#93   Is Nothing Then
        On Error Resume Next
        ActiveSheet.ShowAllData
        Range("B6"[IMG].CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("B2"[IMG].CurrentRegion
    End If
End Sub
-----------------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rng As Range
Set rng = Range([c6], Cells(Rows.Count, 4).End(xlUp))
If Not Intersect(Target, rng) Is Nothing Then
    Call Module1.stancia(Target.Value)
    Cancel = True
End If
End Sub