title: Finds cells on multiple conditions and cut paste the same to another sheet (Simplified)
body: <p>Any alternative or suggestions to Fasten the below stated code that finds cells on multiple conditions and cut paste the same to another sheet.</p>
  
  <pre><code>Sub test()
    'For Move Entire Row to New Worksheet if Cell Contains Specific Text's
    'Using autofilter to Copy rows that contain certain text to a sheet called commodity
    Dim LR As Long
    Range("A2").EntireRow.Insert Shift:=xlDown
    LR = Sheets("Data").Cells(Rows.Count, "E").End(xlUp).Row
    LR1 = Sheets("Commodity").Cells(Rows.Count, "A").End(xlUp).Row + 1
  
    With Sheets("Data").Range("e:e")
      .AutoFilter Field:=1, Criteria1:=("*SILVER*")
      .SpecialCells(xlCellTypeVisible).EntireRow.Copy 
      Destination:=Sheets("Commodity").Range("A" &amp; LR1)
      .SpecialCells(xlCellTypeVisible).EntireRow.Delete
    End With
  
    With Sheets("Data").Range("e:e")
      .AutoFilter Field:=1, Criteria1:=("*GOLD*")
      .SpecialCells(xlCellTypeVisible).EntireRow.Copy 
      Destination:=Sheets("Commodity").Range("A" &amp; LR1)
      .SpecialCells(xlCellTypeVisible).EntireRow.Delete
    End With
  
    With Sheets("Data").Range("e:e")
      .AutoFilter Field:=1, Criteria1:=("*MCX*")
      .SpecialCells(xlCellTypeVisible).EntireRow.Copy 
      Destination:=Sheets("Commodity").Range("A" &amp; LR1)
      .SpecialCells(xlCellTypeVisible).EntireRow.Delete
    End With
  
  End Sub
  </code></pre>