Sub insertCode()
    Set objVBProj = ActiveWorkbook.VBProject
    Set objVBComp = objVBProj.VBComponents("Лист1")
    Set objCodeMod = objVBComp.CodeModule
    With objCodeMod
        i = .CreateEventProc("Change", "Worksheet"): i = i + 1
        .InsertLines i, "If Not Intersect(Target, Range(Cells(1, 1), Cells(2, 1))) Is Nothing Then": i = i + 1
        .InsertLines i, "On Error Resume Next": i = i + 1
        .InsertLines i, "ActiveSheet.ShowAllData": i = i + 1
        .InsertLines i, "Range(""A5"").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range(""A1"").CurrentRegion": i = i + 1
        .InsertLines i, "End If": i = i + 1
        .InsertLines i, "Range(""A2"").Select"
    End With
End Sub