Sub ExcluiLinha()
    Dim Area    As Range
    Dim Linha   As Long
    
    Set Area = [B1:B1000]
        
    For Linha = Area.Rows.Count To 1 Step -1
        If Area(Linha) = "Filial: GO TRANSPORTES LTDA-AC" _
        Or Area(Linha) = "Filial: GO TRANSPORTES LTDA-AL" _
        Or Area(Linha) = "Filial: GO TRANSPORTES LTDA-AP" _
        Or Area(Linha) = "Filial: GO TRANSPORTES LTDA-AM" _
        Or Area(Linha) = "Filial: GO TRANSPORTES LTDA-BA" _
        Or Area(Linha) = "Filial: GO TRANSPORTES LTDA-CE" _
        Or Area(Linha) = "Filial: GO TRANSPORTES LTDA-ES" _
        Or Area(Linha) = "Filial: GO TRANSPORTES LTDA-GO" _
        Or Area(Linha) = "Filial: GO TRANSPORTES LTDA-MA" _
        Or Area(Linha) = "Filial: GO TRANSPORTES LTDA-MT" _
        Or Area(Linha) = "Filial: GO TRANSPORTES LTDA-MS" _
        Or Area(Linha) = "Filial: GO TRANSPORTES LTDA-MG" _
        Or Area(Linha) = "Filial: GO TRANSPORTES LTDA-PA" _
        Or Area(Linha) = "Filial: GO TRANSPORTES LTDA-PB" _
        Or Area(Linha) = "Filial: GO TRANSPORTES LTDA-PR" _
        Or Area(Linha) = "Filial: GO TRANSPORTES LTDA-PE" _
        Or Area(Linha) = "Filial: GO TRANSPORTES LTDA-PI" _
        Or Area(Linha) = "Filial: GO TRANSPORTES LTDA-RJ" _
        Or Area(Linha) = "Filial: GO TRANSPORTES LTDA-RN" _
        Or Area(Linha) = "Filial: GO TRANSPORTES LTDA-RS" _
        Or Area(Linha) = "Filial: GO TRANSPORTES LTDA-RO" _
        Or Area(Linha) = "Filial: GO TRANSPORTES LTDA-RR" _
        Or Area(Linha) = "Filial: GO TRANSPORTES LTDA-SC" _
        Or Area(Linha) = "Filial: GO TRANSPORTES LTDA-SP" _
        Or Area(Linha) = "Filial: GO TRANSPORTES LTDA-SE" Then
            Area(Linha).EntireRow.Delete
        End If
    Next
    
    End Sub
    
    Sub ExcluiLinha2()
     Dim Area    As Range
    Dim Linha   As Long
    
    Set Area = [B1:B1000]
    For Linha = Area.Rows.Count To 1 Step -1
        If Area(Linha) = "Filial: GO TRANSPORTES LTDA-TO" _
        Or Area(Linha) = "Filial: GO TRANSPORTES LTDA-DF" _
        Or Area(Linha) = "Total Filial: 1 registros." _
        Or Area(Linha) = "Total Filial: 2 registros." _
        Or Area(Linha) = "Total Filial: 3 registros." _
        Or Area(Linha) = "Total Filial: 4 registros." _
        Or Area(Linha) = "Total Filial: 5 registros." _
        Or Area(Linha) = "Total Filial: 6 registros." _
        Or Area(Linha) = "Total Filial: 7 registros." _
        Or Area(Linha) = "Total Filial: 8 registros." _
        Or Area(Linha) = "Total Filial: 9 registros." _
        Or Area(Linha) = "Total Filial: 10 registros." _
        Or Area(Linha) = "Total Filial: 11 registros." _
        Or Area(Linha) = "Total Filial: 12 registros." _
        Or Area(Linha) = "Total Filial: 13 registros." _
        Or Area(Linha) = "Total Filial: 14 registros." _
        Or Area(Linha) = "Total Filial: 15 registros." _
        Or Area(Linha) = "Total Filial: 16 registros." _
        Or Area(Linha) = "Total Filial: 17 registros." _
        Or Area(Linha) = "Total Filial: 18 registros." _
        Or Area(Linha) = "Total Filial: 19 registros." _
        Or Area(Linha) = "Total Filial: 20 registros." _
        Or Area(Linha) = "Total Filial: 21 registros." _
        Or Area(Linha) = "Total Filial: 22 registros." _
        Or Area(Linha) = "Total Filial: 23 registros." Then
           Area(Linha).EntireRow.Delete
        End If
        Next
        
        End Sub
        
        Sub ExcluiLinha3()
     Dim Area    As Range
    Dim Linha   As Long
    
    Set Area = [B1:B1000]
    For Linha = Area.Rows.Count To 1 Step -1
    If Area(Linha) = "Total Filial: 24 registros." _
    Or Area(Linha) = "Total Filial: 25 registros." _
    Or Area(Linha) = "Total Filial: 26 registros." _
    Or Area(Linha) = "Categoria Financéira: Diesel Combustivel" _
    Or Area(Linha) = "Categoria Financéira: Contrato Frete" _
    Or Area(Linha) = "Categoria Financéira: Retido Frete" _
    Or Area(Linha) = "Categoria Financéira: Arla" _
    Or Area(Linha) = "Categoria Financéira: Imposto Retido Frete" _
    Or Area(Linha) = "Categoria Financéira: Contrato Frete" _
    Or Area(Linha) = "Categoria Financéira: Finame" _
    Or Area(Linha) = "Categoria Financéira: Juros Finame" _
    Or Area(Linha) = "Categoria Financéira: Peação Carga/Descarga" _
    Or Area(Linha) = "Categoria Financéira: Gerenciamento de Risco" _
    Or Area(Linha) = "Categoria Financéira: Exame Admissional" _
    Or Area(Linha) = "Categoria Financéira: Consorcios contemplados (Despésa)" _
    Or Area(Linha) = "Categoria Financéira: Diarista" _
    Or Area(Linha) = "Categoria Financéira: Auxilio combustivel" _
    Or Area(Linha) = "Categoria Financéira: Multas Fiscais Administrativa" _
    Or Area(Linha) = "Categoria Financéira: INSS" _
    Or Area(Linha) = "Categoria Financéira: INSS Patronal/Desoneracao Fopag" _
    Or Area(Linha) = "Categoria Financéira: IRRF S/Folha" _
    Or Area(Linha) = "Categoria Financéira: Assessoria e Consultoria" _
    Or Area(Linha) = "Categoria Financéira: Manutencao de Sistema" _
    Or Area(Linha) = "Categoria Financéira: Assessoria Medicina do Trabalho" _
    Or Area(Linha) = "Categoria Financéira: Servicos de Manutencao" Then
    Area(Linha).EntireRow.Delete
        End If
        Next
        
        End Sub
        
        Sub ExcluiLinha4()
     Dim Area    As Range
    Dim Linha   As Long
    
    Set Area = [B1:B1000]
    For Linha = Area.Rows.Count To 1 Step -1
    If Area(Linha) = "Categoria Financéira: Manutencao Predial" _
    Or Area(Linha) = "Categoria Financéira: Pecas/Acessorios" _
    Or Area(Linha) = "Categoria Financéira: Consorcios a Contemplar" _
    Or Area(Linha) = "Categoria Financéira: Avarias/Sinistro Veículo" _
    Or Area(Linha) = "Categoria Financéira: Reforma veiculos (Aquisicao)" _
    Or Area(Linha) = "Categoria Financéira: Emprestimos a Terceiros " _
    Or Area(Linha) = "Categoria Financéira: Locação Veículos/Equipamentos (Operacionais)" _
    Or Area(Linha) = "Categoria Financéira: Prejuizo" _
    Or Area(Linha) = "Categoria Financéira: Refeicao Interna" _
    Or Area(Linha) = "Categoria Financéira: Combustivel (Sergio)" _
    Or Area(Linha) = "Categoria Financéira: Cursos e Treinamentos" _
    Or Area(Linha) = "Categoria Financéira: Locação Veículos/Equipamentos (Operacionais)" _
    Or Area(Linha) = "Categoria Financéira: Pneus (Estoque Viana)" Then
     Area(Linha).EntireRow.Delete
        End If
        Next
        End Sub
        
        Sub ExcluiLinha5()
     Dim Area    As Range
    Dim Linha   As Long
    
    Set Area = [B1:B1000]
    For Linha = Area.Rows.Count To 1 Step -1
    If Area(Linha) = "Total : 1 registros." _
    Or Area(Linha) = "Total : 2 registros." _
    Or Area(Linha) = "Total : 3 registros." _
    Or Area(Linha) = "Total : 4 registros." _
    Or Area(Linha) = "Total : 5 registros." _
    Or Area(Linha) = "Total : 6 registros." _
    Or Area(Linha) = "Total : 7 registros." _
    Or Area(Linha) = "Total : 8 registros." _
    Or Area(Linha) = "Total : 9 registros." _
    Or Area(Linha) = "Total : 10 registros." _
    Or Area(Linha) = "Total : 11 registros." _
    Or Area(Linha) = "Total : 12 registros." _
    Or Area(Linha) = "Total : 13 registros." _
    Or Area(Linha) = "Total : 14 registros." _
    Or Area(Linha) = "Totl : 15 registros." _
    Or Area(Linha) = "Total : 16 registros." _
    Or Area(Linha) = "Total : 17 registros." _
    Or Area(Linha) = "Total : 18 registros." _
    Or Area(Linha) = "Total : 19 registros." _
    Or Area(Linha) = "Total : 20 registros." _
    Or Area(Linha) = "Total : 21 registros." _
    Or Area(Linha) = "Total : 22 registros." _
    Or Area(Linha) = "Total : 23 registros." _
    Or Area(Linha) = "Total : 24 registros." Then
    Area(Linha).EntireRow.Delete
        End If
        Next
End Sub

Sub ExcluiLinha6()
     Dim Area    As Range
    Dim Linha   As Long
    
 Set Area = [B1:B1000]
    For Linha = Area.Rows.Count To 1 Step -1
        If Area(Linha) = "Total Filial: 27 registros." _
    Or Area(Linha) = "Total Filial: 28 registros." _
    Or Area(Linha) = "Total Filial: 29 registros." _
    Or Area(Linha) = "Total Filial: 30 registros." _
    Or Area(Linha) = "Total Filial: 31 registros." _
    Or Area(Linha) = "Total Filial: 32 registros." _
    Or Area(Linha) = "Total Filial: 33 registros." _
    Or Area(Linha) = "Total Filial: 34 registros." _
    Or Area(Linha) = "Total Filial: 35 registros." _
    Or Area(Linha) = "Total Filial: 36 registros." _
    Or Area(Linha) = "Total Filial: 37 registros." _
    Or Area(Linha) = "Total Filial: 38 registros." _
    Or Area(Linha) = "Total Filial: 39 registros." _
    Or Area(Linha) = "Total Filial: 40 registros." _
    Or Area(Linha) = "Total Filial: 41 registros." _
    Or Area(Linha) = "Total Filial: 42 registros." _
    Or Area(Linha) = "Total Filial: 43 registros." _
    Or Area(Linha) = "Total Filial: 44 registros." _
    Or Area(Linha) = "Total Filial: 45 registros." _
    Or Area(Linha) = "Total Filial: 46 registros." _
    Or Area(Linha) = "Total Filial: 47 registros." _
    Or Area(Linha) = "Total Filial: 48 registros." _
    Or Area(Linha) = "Total Filial: 49 registros." _
    Or Area(Linha) = "Total Filial: 50 registros." Then
Area(Linha).EntireRow.Delete
        End If
        Next
End Sub

Sub ExcluiLinha7()
End Sub
     Dim Area    As Range
    Dim Linha   As Long
    
 Set Area = [B1:B1000]
    For Linha = Area.Rows.Count To 1 Step -1
    If Area(Linha) = "Total Filial: 51 registros." _
    Or Area(Linha) = "Total Filial: 52 registros." _
    Or Area(Linha) = "Total Filial: 53 registros." _
    Or Area(Linha) = "Total Filial: 54 registros." _
    Or Area(Linha) = "Total Filial: 55 registros." _
    Or Area(Linha) = "Total Filial: 56 registros." _
    Or Area(Linha) = "Total Filial: 57 registros." _
    Or Area(Linha) = "Total Filial: 58 registros." _
    Or Area(Linha) = "Total Filial: 59 registros." _
    Or Area(Linha) = "Total Filial: 60 registros." _
    Or Area(Linha) = "Total Filial: 61 registros." _
    Or Area(Linha) = "Total Filial: 62 registros." _
    Or Area(Linha) = "Total Filial: 63 registros." _
    Or Area(Linha) = "Total Filial: 64 registros." _
    Or Area(Linha) = "Total Filial: 65 registros." _
    Or Area(Linha) = "Total Filial: 66 registros." _
    Or Area(Linha) = "Total Filial: 67 registros." _
    Or Area(Linha) = "Total Filial: 68 registros." _
    Or Area(Linha) = "Total Filial: 69 registros." _
    Or Area(Linha) = "Total Filial: 70 registros." _
    Or Area(Linha) = "Total Filial: 71 registros." _
    Or Area(Linha) = "Total Filial: 72 registros." _
    Or Area(Linha) = "Total Filial: 73 registros." Then
    Area(Linha).EntireRow.Delete
        End If
        Next
End Sub

Sub ExcluiLinha8()
End Sub
     Dim Area    As Range
    Dim Linha   As Long
    
 Set Area = [B1:B1000]
    For Linha = Area.Rows.Count To 1 Step -1
    If Area(Linha) = "Total Filial: 74 registros." _
    Or Area(Linha) = "Total Filial: 75 registros." _
    Or Area(Linha) = "Total Filial: 76 registros." _
    Or Area(Linha) = "Total Filial: 77 registros." _
    Or Area(Linha) = "Total Filial: 78 registros." _
    Or Area(Linha) = "Total Filial: 79 registros." _
    Or Area(Linha) = "Total Filial: 80 registros." _
    Or Area(Linha) = "Total Filial: 81 registros." _
    Or Area(Linha) = "Total Filial: 82 registros." _
    Or Area(Linha) = "Total Filial: 83 registros." _
    Or Area(Linha) = "Total Filial: 84 registros." _
    Or Area(Linha) = "Total Filial: 85 registros." _
    Or Area(Linha) = "Total Filial: 86 registros." _
    Or Area(Linha) = "Total Filial: 87 registros." _
    Or Area(Linha) = "Total Filial: 88 registros." _
    Or Area(Linha) = "Total Filial: 89 registros." _
    Or Area(Linha) = "Total Filial: 90 registros." _
    Or Area(Linha) = "Total Filial: 91 registros." _
    Or Area(Linha) = "Total Filial: 92 registros." _
    Or Area(Linha) = "Total Filial: 93 registros." _
    Or Area(Linha) = "Total Filial: 94 registros." _
    Or Area(Linha) = "Total Filial: 95 registros." _
    Or Area(Linha) = "Total Filial: 96 registros." _
    Or Area(Linha) = "Total Filial: 97 registros." Then
     Area(Linha).EntireRow.Delete
        End If
        Next
End Sub

Sub ExcluiLinha9()
End Sub
     Dim Area    As Range
    Dim Linha   As Long
    
 Set Area = [B1:B1000]
    For Linha = Area.Rows.Count To 1 Step -1
    If Area(Linha) = "Total Filial: 98 registros." _
    Or Area(Linha) = "Total Filial: 99 registros." _
    Or Area(Linha) = "Total Filial: 100 registros." _
    Or Area(Linha) = "Total Filial: 101 registros." _
    Or Area(Linha) = "Total Filial: 102 registros." _
    Or Area(Linha) = "Total Filial: 103 registros." _
    Or Area(Linha) = "Total Filial: 104 registros." _
    Or Area(Linha) = "Total Filial: 105 registros." _
    Or Area(Linha) = "Total Filial: 106 registros." _
    Or Area(Linha) = "Total Filial: 107 registros." _
    Or Area(Linha) = "Total Filial: 108 registros." _
    Or Area(Linha) = "Total Filial: 109 registros." _
    Or Area(Linha) = "Total Filial: 110 registros." _
    Or Area(Linha) = "Total Filial: 111 registros." _
    Or Area(Linha) = "Total Filial: 112 registros." _
    Or Area(Linha) = "Total Filial: 113 registros." _
    Or Area(Linha) = "Total Filial: 114 registros." _
    Or Area(Linha) = "Total Filial: 115 registros." _
    Or Area(Linha) = "Total Filial: 116 registros." _
    Or Area(Linha) = "Total Filial: 117 registros." _
    Or Area(Linha) = "Total Filial: 118 registros." _
    Or Area(Linha) = "Total Filial: 119 registros." _
    Or Area(Linha) = "Total Filial: 120 registros." _
    Or Area(Linha) = "Total Filial: 121 registros." Then
     Area(Linha).EntireRow.Delete
        End If
        Next
        
        End Sub
        
        Sub ExcluiLinha10()

     Dim Area    As Range
    Dim Linha   As Long
    
 Set Area = [B1:B1000]
    For Linha = Area.Rows.Count To 1 Step -1
    If Area(Linha) = "Total Filial: 122 registros." _
    Or Area(Linha) = "Total Filial: 123 registros." _
    Or Area(Linha) = "Total Filial: 124 registros." _
    Or Area(Linha) = "Total Filial: 125 registros." _
    Or Area(Linha) = "Total Filial: 126 registros." _
    Or Area(Linha) = "Total Filial: 127 registros." _
    Or Area(Linha) = "Total Filial: 128 registros." _
    Or Area(Linha) = "Total Filial: 129 registros." _
    Or Area(Linha) = "Total Filial: 130 registros." _
    Or Area(Linha) = "Total Filial: 131 registros." _
    Or Area(Linha) = "Total Filial: 132 registros." _
    Or Area(Linha) = "Total Filial: 133 registros." _
    Or Area(Linha) = "Total Filial: 134 registros." _
    Or Area(Linha) = "Total Filial: 135 registros." _
    Or Area(Linha) = "Total Filial: 136 registros." _
    Or Area(Linha) = "Total Filial: 137 registros." _
    Or Area(Linha) = "Total Filial: 138 registros." _
    Or Area(Linha) = "Total Filial: 139 registros." _
    Or Area(Linha) = "Total Filial: 140 registros." _
    Or Area(Linha) = "Total Filial: 141 registros." _
    Or Area(Linha) = "Total Filial: 142 registros." _
    Or Area(Linha) = "Total Filial: 143 registros." _
    Or Area(Linha) = "Total Filial: 144 registros." _
    Or Area(Linha) = "Total Filial: 145 registros." Then
    Area(Linha).EntireRow.Delete
        End If
        Next
        
        End Sub
        
         Sub ExcluiLinha11()


     Dim Area    As Range
    Dim Linha   As Long
    
 Set Area = [B1:B1000]
    For Linha = Area.Rows.Count To 1 Step -1
    If Area(Linha) = "Total Filial: 146 registros." _
    Or Area(Linha) = "Total Filial: 147 registros." _
    Or Area(Linha) = "Total Filial: 148 registros." _
    Or Area(Linha) = "Total Filial: 149 registros." _
    Or Area(Linha) = "Total Filial: 150 registros." _
    Or Area(Linha) = "Total Filial: 151 registros." _
    Or Area(Linha) = "Total Filial: 152 registros." _
    Or Area(Linha) = "Total Filial: 153 registros." _
    Or Area(Linha) = "Total Filial: 154 registros." _
    Or Area(Linha) = "Total Filial: 155 registros." _
    Or Area(Linha) = "Total Filial: 156 registros." _
    Or Area(Linha) = "Total Filial: 157 registros." _
    Or Area(Linha) = "Total Filial: 158 registros." _
    Or Area(Linha) = "Total Filial: 159 registros." _
    Or Area(Linha) = "Total Filial: 160 registros." _
    Or Area(Linha) = "Total Filial: 161 registros." _
    Or Area(Linha) = "Total Filial: 162 registros." _
    Or Area(Linha) = "Total Filial: 163 registros." _
    Or Area(Linha) = "Total Filial: 164 registros." _
    Or Area(Linha) = "Total Filial: 165 registros." _
    Or Area(Linha) = "Total Filial: 166 registros." _
    Or Area(Linha) = "Total Filial: 167 registros." _
    Or Area(Linha) = "Total Filial: 168 registros." _
    Or Area(Linha) = "Total Filial: 169 registros." Then
     Area(Linha).EntireRow.Delete
        End If
        Next
        
        End Sub
        
         Sub ExcluiLinha12()



     Dim Area    As Range
    Dim Linha   As Long
    
 Set Area = [B1:B1000]
    For Linha = Area.Rows.Count To 1 Step -1
    If Area(Linha) = "Total Filial: 170 registros." _
    Or Area(Linha) = "Total Filial: 171 registros." _
    Or Area(Linha) = "Total Filial: 172 registros." _
    Or Area(Linha) = "Total Filial: 173 registros." _
    Or Area(Linha) = "Total Filial: 174 registros." _
    Or Area(Linha) = "Total Filial: 175 registros." _
    Or Area(Linha) = "Total Filial: 176 registros." _
    Or Area(Linha) = "Total Filial: 177 registros." _
    Or Area(Linha) = "Total Filial: 178 registros." _
    Or Area(Linha) = "Total Filial: 179 registros." _
    Or Area(Linha) = "Total Filial: 180 registros." _
    Or Area(Linha) = "Total Filial: 181 registros." _
    Or Area(Linha) = "Total Filial: 182 registros." _
    Or Area(Linha) = "Total Filial: 183 registros." _
    Or Area(Linha) = "Total Filial: 184 registros." _
    Or Area(Linha) = "Total Filial: 185 registros." _
    Or Area(Linha) = "Total Filial: 186 registros." _
    Or Area(Linha) = "Total Filial: 187 registros." _
    Or Area(Linha) = "Total Filial: 188 registros." _
    Or Area(Linha) = "Total Filial: 189 registros." _
    Or Area(Linha) = "Total Filial: 190 registros." _
    Or Area(Linha) = "Total Filial: 191 registros." _
    Or Area(Linha) = "Total Filial: 192 registros." _
    Or Area(Linha) = "Total Filial: 193 registros." Then
    Area(Linha).EntireRow.Delete
        End If
        Next
        
        End Sub
        
         Sub ExcluiLinha13()

     Dim Area    As Range
    Dim Linha   As Long
    
 Set Area = [B1:B1000]
    For Linha = Area.Rows.Count To 1 Step -1
    If Area(Linha) = "Total Filial: 194 registros." _
    Or Area(Linha) = "Total Filial: 195 registros." _
    Or Area(Linha) = "Total Filial: 196 registros." _
    Or Area(Linha) = "Total Filial: 197 registros." _
    Or Area(Linha) = "Total Filial: 198 registros." _
    Or Area(Linha) = "Total Filial: 199 registros." _
    Or Area(Linha) = "Total Filial: 200 registros." _
    Or Area(Linha) = "Total Filial: 201 registros." _
    Or Area(Linha) = "Total Filial: 202 registros." _
    Or Area(Linha) = "Total Filial: 203 registros." _
    Or Area(Linha) = "Total Filial: 204 registros." _
    Or Area(Linha) = "Total Filial: 205 registros." _
    Or Area(Linha) = "Total Filial: 206 registros." _
    Or Area(Linha) = "Total Filial: 207 registros." _
    Or Area(Linha) = "Total Filial: 208 registros." _
    Or Area(Linha) = "Total Filial: 209 registros." _
    Or Area(Linha) = "Total Filial: 210 registros." _
    Or Area(Linha) = "Total Filial: 211 registros." _
    Or Area(Linha) = "Total Filial: 212 registros." _
    Or Area(Linha) = "Total Filial: 213 registros." _
    Or Area(Linha) = "Total Filial: 214 registros." _
    Or Area(Linha) = "Total Filial: 215 registros." _
    Or Area(Linha) = "Total Filial: 216 registros." _
    Or Area(Linha) = "Total Filial: 217 registros." Then
     Area(Linha).EntireRow.Delete
        End If
        Next
        
        End Sub
        
        Sub ExcluiLinha14()


     Dim Area    As Range
    Dim Linha   As Long
    
 Set Area = [B1:B1000]
    For Linha = Area.Rows.Count To 1 Step -1
    If Area(Linha) = "Total Filial: 218 registros." _
    Or Area(Linha) = "Total Filial: 219 registros." _
    Or Area(Linha) = "Total Filial: 220 registros." _
    Or Area(Linha) = "Total Filial: 221 registros." _
    Or Area(Linha) = "Total Filial: 222 registros." _
    Or Area(Linha) = "Total Filial: 223 registros." _
    Or Area(Linha) = "Total Filial: 224 registros." _
    Or Area(Linha) = "Total Filial: 225 registros." _
    Or Area(Linha) = "Total Filial: 226 registros." _
    Or Area(Linha) = "Total Filial: 227 registros." _
    Or Area(Linha) = "Total Filial: 228 registros." _
    Or Area(Linha) = "Total Filial: 229 registros." _
    Or Area(Linha) = "Total Filial: 230 registros." _
    Or Area(Linha) = "Total Filial: 231 registros." _
    Or Area(Linha) = "Total Filial: 232 registros." _
    Or Area(Linha) = "Total Filial: 233 registros." _
    Or Area(Linha) = "Total Filial: 234 registros." _
    Or Area(Linha) = "Total Filial: 235 registros." _
    Or Area(Linha) = "Total Filial: 236 registros." _
    Or Area(Linha) = "Total Filial: 237 registros." _
    Or Area(Linha) = "Total Filial: 238 registros." _
    Or Area(Linha) = "Total Filial: 239 registros." _
    Or Area(Linha) = "Total Filial: 240 registros." _
    Or Area(Linha) = "Total Filial: 241 registros." Then
     Area(Linha).EntireRow.Delete
        End If
        Next
        
        End Sub
        
        Sub ExcluiLinha15()


     Dim Area    As Range
    Dim Linha   As Long
    
 Set Area = [B1:B1000]
    For Linha = Area.Rows.Count To 1 Step -1
    If Area(Linha) = "Total Filial: 242 registros." _
    Or Area(Linha) = "Total Filial: 243 registros." _
    Or Area(Linha) = "Total Filial: 244 registros." _
    Or Area(Linha) = "Total Filial: 245 registros." _
    Or Area(Linha) = "Total Filial: 246 registros." _
    Or Area(Linha) = "Total Filial: 247 registros." _
    Or Area(Linha) = "Total Filial: 248 registros." _
    Or Area(Linha) = "Total Filial: 249 registros." _
    Or Area(Linha) = "Total Filial: 250 registros." _
    Or Area(Linha) = "Total Filial: 251 registros." _
    Or Area(Linha) = "Total Filial: 252 registros." _
    Or Area(Linha) = "Total Filial: 253 registros." _
    Or Area(Linha) = "Total Filial: 254 registros." _
    Or Area(Linha) = "Total Filial: 255 registros." _
    Or Area(Linha) = "Total Filial: 256 registros." _
    Or Area(Linha) = "Total Filial: 257 registros." _
    Or Area(Linha) = "Total Filial: 258 registros." _
    Or Area(Linha) = "Total Filial: 259 registros." _
    Or Area(Linha) = "Total Filial: 260 registros." _
    Or Area(Linha) = "Total Filial: 261 registros." _
    Or Area(Linha) = "Total Filial: 262 registros." _
    Or Area(Linha) = "Total Filial: 263 registros." _
    Or Area(Linha) = "Total Filial: 264 registros." _
    Or Area(Linha) = "Total Filial: 265 registros." Then
    Area(Linha).EntireRow.Delete
        End If
        Next
        
        End Sub
        
         Sub ExcluiLinha16()


     Dim Area    As Range
    Dim Linha   As Long
    
 Set Area = [B1:B1000]
    For Linha = Area.Rows.Count To 1 Step -1
    If Area(Linha) = "Total Filial: 266 registros." _
    Or Area(Linha) = "Total Filial: 267 registros." _
    Or Area(Linha) = "Total Filial: 268 registros." _
    Or Area(Linha) = "Total Filial: 269 registros." _
    Or Area(Linha) = "Total Filial: 270 registros." _
    Or Area(Linha) = "Total Filial: 271 registros." _
    Or Area(Linha) = "Total Filial: 272 registros." _
    Or Area(Linha) = "Total Filial: 273 registros." _
    Or Area(Linha) = "Total Filial: 274 registros." _
    Or Area(Linha) = "Total Filial: 275 registros." _
    Or Area(Linha) = "Total Filial: 276 registros." _
    Or Area(Linha) = "Total Filial: 277 registros." _
    Or Area(Linha) = "Total Filial: 278 registros." _
    Or Area(Linha) = "Total Filial: 279 registros." _
    Or Area(Linha) = "Total Filial: 280 registros." _
    Or Area(Linha) = "Total Filial: 281 registros." _
    Or Area(Linha) = "Total Filial: 282 registros." _
    Or Area(Linha) = "Total Filial: 283 registros." _
    Or Area(Linha) = "Total Filial: 284 registros." _
    Or Area(Linha) = "Total Filial: 285 registros." _
    Or Area(Linha) = "Total Filial: 286 registros." _
    Or Area(Linha) = "Total Filial: 287 registros." _
    Or Area(Linha) = "Total Filial: 288 registros." _
    Or Area(Linha) = "Total Filial: 289 registros." Then
     Area(Linha).EntireRow.Delete
        End If
        Next
        
        End Sub
        
         Sub ExcluiLinha17()


     Dim Area    As Range
    Dim Linha   As Long
    
 Set Area = [B1:B1000]
    For Linha = Area.Rows.Count To 1 Step -1
    If Area(Linha) = "Total Filial: 290 registros." _
    Or Area(Linha) = "Total Filial: 291 registros." _
    Or Area(Linha) = "Total Filial: 292 registros." _
    Or Area(Linha) = "Total Filial: 293 registros." _
    Or Area(Linha) = "Total Filial: 294 registros." _
    Or Area(Linha) = "Total Filial: 295 registros." _
    Or Area(Linha) = "Total Filial: 296 registros." _
    Or Area(Linha) = "Total Filial: 297 registros." _
    Or Area(Linha) = "Total Filial: 298 registros." _
    Or Area(Linha) = "Total Filial: 299 registros." _
    Or Area(Linha) = "Total Filial: 300 registros." _
    Or Area(Linha) = "Total Filial: 301 registros." _
    Or Area(Linha) = "Total Filial: 302 registros." _
    Or Area(Linha) = "Total Filial: 303 registros." _
    Or Area(Linha) = "Total Filial: 304 registros." _
    Or Area(Linha) = "Total Filial: 305 registros." _
    Or Area(Linha) = "Total Filial: 306 registros." _
    Or Area(Linha) = "Total Filial: 307 registros." _
    Or Area(Linha) = "Total Filial: 308 registros." _
    Or Area(Linha) = "Total Filial: 309 registros." _
    Or Area(Linha) = "Total Filial: 310 registros." _
    Or Area(Linha) = "Total Filial: 311 registros." _
    Or Area(Linha) = "Total Filial: 312 registros." _
    Or Area(Linha) = "Total Filial: 313 registros." Then
    Area(Linha).EntireRow.Delete
        End If
        Next
        
        End Sub
        Sub ExcluiLinha18()


     Dim Area    As Range
    Dim Linha   As Long
    
 Set Area = [B1:B1000]
    For Linha = Area.Rows.Count To 1 Step -1
    If Area(Linha) = "Total Filial: 314 registros." _
    Or Area(Linha) = "Total Filial: 315 registros." _
    Or Area(Linha) = "Total Filial: 316 registros." _
    Or Area(Linha) = "Total Filial: 317 registros." _
    Or Area(Linha) = "Total Filial: 318 registros." _
    Or Area(Linha) = "Total Filial: 319 registros." _
    Or Area(Linha) = "Total Filial: 320 registros." _
    Or Area(Linha) = "Total Filial: 321 registros." _
    Or Area(Linha) = "Total Filial: 322 registros." _
    Or Area(Linha) = "Total Filial: 323 registros." _
    Or Area(Linha) = "Total Filial: 324 registros." _
    Or Area(Linha) = "Total Filial: 325 registros." _
    Or Area(Linha) = "Total Filial: 326 registros." _
    Or Area(Linha) = "Total Filial: 327 registros." _
    Or Area(Linha) = "Total Filial: 328 registros." _
    Or Area(Linha) = "Total Filial: 329 registros." _
    Or Area(Linha) = "Total Filial: 330 registros." _
    Or Area(Linha) = "Total Filial: 331 registros." _
    Or Area(Linha) = "Total Filial: 332 registros." _
    Or Area(Linha) = "Total Filial: 333 registros." _
    Or Area(Linha) = "Total Filial: 334 registros." _
    Or Area(Linha) = "Total Filial: 335 registros." _
    Or Area(Linha) = "Total Filial: 336 registros." _
    Or Area(Linha) = "Total Filial: 337 registros." Then
    Area(Linha).EntireRow.Delete
        End If
        Next
        
        End Sub
        
           Sub ExcluiLinha19()


     Dim Area    As Range
    Dim Linha   As Long
    
 Set Area = [B1:B1000]
    For Linha = Area.Rows.Count To 1 Step -1
    If Area(Linha) = "Total Filial: 338 registros." _
    Or Area(Linha) = "Total Filial: 339 registros." _
    Or Area(Linha) = "Total Filial: 340 registros." _
    Or Area(Linha) = "Total Filial: 341 registros." _
    Or Area(Linha) = "Total Filial: 342 registros." _
    Or Area(Linha) = "Total Filial: 343 registros." _
    Or Area(Linha) = "Total Filial: 344 registros." _
    Or Area(Linha) = "Total Filial: 345 registros." _
    Or Area(Linha) = "Total Filial: 346 registros." _
    Or Area(Linha) = "Total Filial: 347 registros." _
    Or Area(Linha) = "Total Filial: 348 registros." _
    Or Area(Linha) = "Total Filial: 349 registros." _
    Or Area(Linha) = "Total Filial: 350 registros." Then
     Area(Linha).EntireRow.Delete
        End If
        Next
        
        End Sub
    
Sub Button1_Click()
    Call ExcluiLinha 'Macro1
    Call ExcluiLinha2 'Macro2
    Call ExcluiLinha3 'Macro3
    Call ExcluiLinha4 'Macro4
    Call ExcluiLinha5 'Macro5
    Call ExcluiLinha6 'Macro6
    Call ExcluiLinha7 'Macro7
    Call ExcluiLinha8 'Macro8
    Call ExcluiLinha9 'Macro9
    Call ExcluiLinha10 'Macro10
    Call ExcluiLinha11 'Macro11
    Call ExcluiLinha12 'Macro12
    Call ExcluiLinha13 'Macro13
    Call ExcluiLinha14 'Macro14
    Call ExcluiLinha15 'Macro15
    Call ExcluiLinha16 'Macro16
    Call ExcluiLinha17 'Macro17
    Call ExcluiLinha18 'Macro18
    Call ExcluiLinha19 'Macro19
    Call sbExample12 'Macro20
    
End Sub

Sub sbExample12()
    Next
    Columns("F").Delete 'Deletará a Coluna F.
    Next
    Columns("G").Delete 'Deletará a Coluna G.
    Next
    Columns("H").Delete 'Deletará a Coluna H.
    Next
    Columns("I").Delete 'Deletará a Coluna I.
    Next
    Columns("J").Delete 'Deletará a Coluna J.
    Next
    Columns("K").Delete 'Deletará a Coluna K.
    Next
    Columns("M").Delete 'Deletará a Coluna M.
    Next
    Columns("O").Delete 'Deletará a Coluna O.
    Next
    Columns("P").Delete 'Deletará a Coluna P.
    Next
    Columns("Q").Delete 'Deletará a Coluna Q.
    Next
    Columns("R").Delete 'Deletará a Coluna R.
    Next
    Columns("S").Delete 'Deletará a Coluna S.
    Next
    Columns("T").Delete 'Deletará a Coluna T.
    Next
    Columns("U").Delete 'Deletará a Coluna U.
    Next
    Columns("V").Delete 'Deletará a Coluna V.
    Next
    Columns("W").Delete 'Deletará a Coluna W.
    Next
    Columns("X").Delete 'Deletará a Coluna X.
    
    End Sub