title: Encountering error "runtime error 91" with "Do Until"
body: <p>I'm kinda new to this whole thing and the site and recently encountered an error with my code that I am unable to solve. My objective is to get my macro to be able to cut any cells containing the phrase "Subcontractor : " from column A to column L's cell which is offset (1,11).
  My code allows it to do so but even though I get my desired results, however provides an error 91.</p>
  
  <p>Code:</p>
  
  <pre><code>Sub SiteAccess()
  Dim mySheet As Worksheet, myOtherSheet As Worksheet, myBook As Workbook 'Define your workbooks and worksheets as variables
  Set myBook = Excel.ActiveWorkbook
  Set mySheet = myBook.Sheets("SiteAccessReports")
  
  Dim cc As Excel.Range, ee As Long
  
  Do
  For Each cc In Range("A1:A30000") 'Or whatever yours is
  If cc.Value Like "*SUBCONTRACTOR : *" Then
  cc.Cut Destination:=cc.Offset(1, 11)
  For ee = mySheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1 To ActiveSheet.UsedRange.Row Step -1
  If Cells(ee, 1) = 0 _
  Then Cells(ee, 1).EntireRow.Delete
  
       Next ee
  Exit For
  End If
  Next
  Loop Until cc.Value = "***END OF REPORT*** " 'Error Line
  
  End Sub
  </code></pre>
  
  <p>Appreciate any help I can get.</p>