title: Find a row with specific text and delete this and the rest 4 rows below it
body: <p>I want to delete a specific cell area in 1000 files.</p>
  
  <p>The location of this cell area is not the same in every file. In some, it starts from the A12 and in some others it starts from the A20, A21 etc.</p>
  
  <p>There are 5 lines (rows) in just one column and I want to delete them all. </p>
  
  <p>So, I need to :</p>
  
  <p>01) find the cell (first row) with the specific text ("VVVV"). </p>
  
  <p>02) choose this cell and the rest 4 (below)</p>
  
  <p>03) delete , select SHIFT CELLS UP </p>
  
  <p>At first, I could only make it select the first row and delete it (shells shift up as well). Here is my code that now deletes the other rows but there is an issue:</p>
  
  <pre><code>Sub deleteRows()
  '
  ' deleteRows Macro
  '
  ' Keyboard Shortcut: Ctrl+s
  '
  Dim StartRange As String
  Dim EndRange As String
  Cells.Find(What:="VVVV").Select
  StartRange = ActiveCell.Address
  EndRange = ActiveCell.Address &amp; 4
  ActiveSheet.Range(StartRange &amp; ":" &amp; EndRange).Select
  Selection.Delete Shift:=xlUp
  
  End Sub
  </code></pre>
  
  <p>It deletes more rows than expected. That means that there is an issue with the "EndRange" value. Maybe, I will have to try to find a function that selects the range and deletes it. For example if the cell is in "A1:B1", I want to select the "A1:B1" to "A5:B5".</p>