Удалить макрос из листа

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 7 And Target.Row > 1 And Target.Cells.Count = 1 Then
        Set MyRange = ActiveCell
        Cancel = True
        wsDict.Select
       
       ' If Len(Target.Value) > 0 Then
           ' wsDict.Columns(1).AutoFilter Field:=1, Criteria1:="=" & Left$(Target.Value, 1) & "*"
       ' End If
    End If
    
 
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sNew As String
    If Target.Column = 7 Then
        With Application
            .EnableEvents = False
            sNew = Target.Value
            .Undo
            If Len(Target.Value) = 0 Then  
                Target.Value = sNew
            End If
            .EnableEvents = True
        End With
    End If
End Sub

Option Explicit
Const rrow = 11
 
Sub www()
    Dim r As Range, sh As Worksheet, ind&
    Application.ScreenUpdating = False
 
    Range("a" & rrow & ":ep" & Cells(rrow, 6).End(xlDown).Row).Clear
    For Each sh In Worksheets
        With sh
            If .Index <> ActiveSheet.Index Then
                Set r = .Range("a" & rrow & ":ep" & .Cells(.Rows.Count, 2).End(xlUp).Row)
                r.Copy Cells(rrow + ind, 1)
                ind = ind + r.Rows.Count
            End If
        End With
    Next
 
    Application.ScreenUpdating = True
 
End Sub