Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    a = Range("b1").Value
    'если в ячейке B1 значение = №
    'значит это уже обработанный лист
    If a = "№" Then
        MsgBox "Что надо?"
    Else
        'иначе
        'копируем активный лист и переносим его после крайнего
        ActiveSheet.Copy After:=Sheets(Sheets.Count)
        'удаляем строки 1:12
        Rows("1:22").Delete Shift:=xlUp
        'ищем нижнюю строку таблицы (прибавляем 2)
        'это как выделить ячейку с № и нажать на End и стрелку вниз
        b = Range("b1").End(xlDown).Row + 2
        'ищем нижнюю строку со значением
        c = Cells(Rows.Count, "b").End(xlUp).Row
        'удаляем эти строки
        Rows(b & ":" & c).Delete Shift:=xlUp
    End If
End Sub