макрос excel vba удалить столбец на основе содержимого ячейки

Я пытаюсь написать макрос для удаления столбцов из электронной таблицы, если они имеют определенный контент. Все данные находятся в первой строке переменной длины. Я думаю, что проблема может быть связана с моим выбором диапазона. Я продолжаю получать индекс вне диапазона, когда пытаюсь выполнить поиск. Любой совет будет принят во внимание. :)

Sub Disk_Firmware()
   Dim c As Range
   Dim SrchRng As Range
   Dim SrchStr As String
   Set SrchRng = ActiveSheet.Range("A1").EntireRow
   SrchStr = InputBox("Please enter a search string")
   Do
      Set c = SrchRng.Find(SrchStr, LookIn:=xlvalues)
      If Not c Is Nothing Then c.EntireColumn.Delete
   Loop While Not c Is Nothing
End Sub