Senhores, bom dia.

Por gentileza, eu gostaria da ajuda dos senhores se possível.

Estou tentando adicionar a condição de aumentar o número de colunas na rotina abaixo.

O que eu gostaria é excluir não só uma, mas, sim uma determinada quantidade de colunas de acordo com a necessidade.

Por gentileza, observem a rotina.

__________________________________________________________________________________________________

Sub excluiColuna()

Dim colunaExcluir As String
Dim ultimaColuna As Long
Dim colunasExcluidas As Long

Const LINHA_TITULO = 1

colunasExcluidas = 0
colunaExcluir = InputBox("Qual coluna você deseja excluir?", "Exclusão de colunas")

ultimaColuna = ActiveSheet.Range("A1").End(xlToRight).Column

For i = 1 To ultimaColuna
If Cells(LINHA_TITULO, i).Value = colunaExcluir Then
Columns(i).Select
Selection.Delete Shift:=xlToLeft

colunasExcluidas = colunasExcluidas + 1

End If
Next i

If colunasExcluidas = 0 Then
MsgBox "Nenhuma coluna foi encontrada com o título: " & colunaExcluir, vbInformation + vbOKOnly, "Exclusão de Colunas"
Else
MsgBox "Coluna Excluída", vbInformation + vbOKOnly, "Exclusão de Colunas"
End If
End Sub

Obrigado a todos mais uma vez.