Streamlime Macro to increase Speed

[howard]

I have the following Macro below which takes a few mins to run (number of rows only 292 and up to col O)

 Sub Delete_Stock_Transferred_toanotherBranch()
     With Sheets(2)
   Dim lr As Long
Dim i As Long

  lr = .Cells(Rows.Count, "O").End(xlUp).Row
  For i = lr To 2 Step -1
    If .Cells(i, 15).Value = "Transferrred to another branch" Then
      Cells(i, 15).EntireRow.Delete
    End If
  Next i
  End With
  
End Sub

It would be appreciated if someone could amend so it runs faster

 

[My Aswer Is This]

Try this:

Sub Filter_Me_Please()
'Modified  8/29/2018  10:42:34 PM  EDT
Application.ScreenUpdating = False
Dim Lastrow As Long
Dim c As Long
Dim s As Variant
c = "15" ' Column Number Modify this to your need
s = "Transferrred to another branch" 'Saerch Value Modify to your need
Lastrow = Cells(Rows.Count, c).End(xlUp).Row
With ActiveSheet.Cells(1, c).Resize(Lastrow)
    .AutoFilter 1, s
    counter = .Columns(c).SpecialCells(xlCellTypeVisible).Count
    If counter > 1 Then
        .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    Else
        MsgBox "No values found"
    End If
    .AutoFilter
End With
Application.ScreenUpdating = True
End Sub

 

[howard]

Thanks for the help, much appreciated

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

Thanks for the help, much appreciated