Удалить ячейки с начала строки - VBA

Формулировка задачи:

добрый день! нужный текст, начинающийся с ????????- располагается в таблице в разных столбцах (первом или втором, третьем и т.д.) пример: папка Исполнительно-распорядительные органы муниципального образования 0 орган 130c9625-e095-49ad-a990-b245f8518530 Администрация Сургутского района 0 0 подразделение 0ad2e921-dd57-e711-80d2-005056a62a72 Комитет архитектуры и градостроительства администрации Сургутского района нужно для удобства удалить ячейки со сдвигом влево, чтобы все строки начинались с ????????-

и еще. удалить строки, в которых ????????- вообще не встречается

Решение задачи: «Удалить ячейки с начала строки»

textual
                            Листинг программы 
                        

                            Sub Макрос1()
Dim rn As Range, rw As Range, r As Long, c As Long, f As Boolean
Set rn = ActiveSheet.UsedRange
For r = rn.Rows.Count To 1 Step -1
  Set rw = rn.Rows(r)
  f = True
  For c = 1 To rw.Columns.Count
    If rw.Cells(1, c) Like "????????-*" Then
      f = False
      If c > 1 Then rw.Cells(1, 1).Resize(, c - 1).Delete xlShiftToLeft
      Exit For
    End If
  Next
  If f Then rw.Delete xlShiftUp
Next
End Sub
                        