Excel: Макрос на обработку таблицы - VBA

Sub Макрос3()
'
' Макрос3 Макрос
'
 
'

    ''''''''''''''''''''''''''''''''''''''''''''''''
    Columns("D:D").Select
    Range("D1192").Activate
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Columns("E:E").Select
    Range("E1192").Activate
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Columns("B:B").ColumnWidth = 20.86
    Columns("A:A").ColumnWidth = 16.71
    Columns("C:C").ColumnWidth = 31.29
    Range("F1194").Select

    Dim ra As Range, delra As Range, TextS As String
    Application.ScreenUpdating = False
 
    TextS = "Взятие зоны охраны"

    For Each ra In ActiveSheet.UsedRange.Rows
 
        If Not ra.Find(TextS, , xlValues, xlPart) Is Nothing Then
         
            If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
        End If
    Next
   
    If Not delra Is Nothing Then delra.EntireRow.Delete
 
'''''''''''''''''''
 
   Dim ra1 As Range, delra1 As Range, TextD As String
    Application.ScreenUpdating = False
 
    TextD = "Невзятие"

    For Each ra1 In ActiveSheet.UsedRange.Rows
 
        If Not ra1.Find(TextD, , xlValues, xlPart) Is Nothing Then
         
            If delra1 Is Nothing Then Set delra1 = ra1 Else Set delra1 = Union(delra1, ra1)
        End If
    Next
   
    If Not delra1 Is Nothing Then delra1.EntireRow.Delete
    ''''''''''''''''''''''''''''''''''''''''''
    
       Dim ra2 As Range, delra2 As Range, TextN As String
    Application.ScreenUpdating = False
 
    TextN = "Запрос на взятие шлейфа"

    For Each ra2 In ActiveSheet.UsedRange.Rows
 
        If Not ra2.Find(TextN, , xlValues, xlPart) Is Nothing Then
         
            If delra2 Is Nothing Then Set delra2 = ra2 Else Set delra2 = Union(delra2, ra2)
        End If
    Next
   
    If Not delra2 Is Nothing Then delra2.EntireRow.Delete
''''''''''''''''''''''''''''''''
 Dim ra3 As Range, delra3 As Range, TextM As String
    Application.ScreenUpdating = False
 
    TextM = "Взятие раздела"

    For Each ra3 In ActiveSheet.UsedRange.Rows
 
        If Not ra3.Find(TextM, , xlValues, xlPart) Is Nothing Then
         
            If delra3 Is Nothing Then Set delra3 = ra3 Else Set delra3 = Union(delra3, ra3)
        End If
    Next
   
    If Not delra3 Is Nothing Then delra3.EntireRow.Delete
       Range("N4").Select
    ActiveCell.FormulaR1C1 = "9 этаж    Обход"
    Range("N5").Select
    ActiveCell.FormulaR1C1 = "8 этаж   Обход"
    Range("N6").Select
    ActiveCell.FormulaR1C1 = "7 этаж   Обход"
    Range("N7").Select
    ActiveCell.FormulaR1C1 = "6 этаж   Обход."
    Range("N8").Select
    ActiveCell.FormulaR1C1 = "5 этаж   Обход"
    Range("N9").Select
    ActiveCell.FormulaR1C1 = "4 этаж    Обход"
    Range("N10").Select
    ActiveCell.FormulaR1C1 = "3 этаж    Обход"
    Range("N11").Select
    ActiveCell.FormulaR1C1 = "2 этаж    Обход"
    Range("N12").Select
    ActiveCell.FormulaR1C1 = "Подвал  Обход"
        Range("N13").Select
    ActiveCell.FormulaR1C1 = "МКС     Обход"
        Range("N14").Select
    ActiveCell.FormulaR1C1 = " 0  этаж  Парковка  Обход."
        Range("N15").Select
    ActiveCell.FormulaR1C1 = " 1  этаж  Парковка  Обход."
        Range("N16").Select
    ActiveCell.FormulaR1C1 = "13 этаж  Улья-ва  Обход."
        Range("N17").Select
    ActiveCell.FormulaR1C1 = "3  этаж  Улья-ва  Обход."
    Range("N18").Select
    ActiveCell.FormulaR1C1 = "10 этаж  Улья-ва  Обход."
       Range("N19").Select
    ActiveCell.FormulaR1C1 = "14 этаж  Улья-ва  Обход."
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
    End Sub