title: Delete a row in Excel VBA
body: <p>I have this piece of code which finds the excel row of an item from a list and deletes the items from a list. What I want... is to delete the Excel row as well.</p>
  
  <p>The code is here</p>
  
  <pre><code>Private Sub imperecheaza_Click()
  Dim ws As Worksheet
  Dim Rand As Long
  Set ws = Worksheets("BD_IR")    
  Rand = 3
  Do While ws.Cells(Rand, 4).Value &lt;&gt; "" And Rand &lt; 65000
     If ws.Cells(Rand, 4).Value = gksluri.Value * 1 And ws.Cells(Rand, 5).Value = gksluri.List(gksluri.ListIndex, 1) * 1 Then
              ws.Range(Rand, 1).EntireRow.Delete '(here I want to delete the entire row that meets the criteria from the If statement)
              gksluri.RemoveItem gksluri.ListIndex
              Exit Do
      End If
  Rand = Rand + 1
  Loop
  End Sub
  </code></pre>
  
  <p>Where I added ws.Range(Rand,1).EntireRow.Delete is where I want to delete the entire row but I don't know how to do it. What I want... if it finds the same value in a cell like in some selected item of my list to be able to remove both the entire row in excel and the item from the listbox. It works to remove the item from the listbox but I don't know how to remove the row as well</p>