Help with a macro please

[Buns1976]

Good Afternoon Folks,

I need help with the attached macro please. I need it to run on the specified sheet (POS IMPORT). Right now it is running on whichever sheet
is open in the workbook. I have messed with it for 2 hours but not able to get it correct.

Any help would be appreciated!

Thank you!!

Sub DeletePLURows()    Application.ScreenUpdating = False
    Dim LastRow As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Application.ScreenUpdating = True
    Range("A1:A" & LastRow).AutoFilter Field:=1, Criteria1:="<>0064914800*"
    Range("A2:A" & LastRow).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    Range("A1").AutoFilter
    Application.ScreenUpdating = True
End Sub

 

[Fluff]

How about

Sub Buns1976()
   Dim LastRow As Long
   
   Application.ScreenUpdating = False
   With Sheets("POS IMPORT")
      LastRow = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
      .Range("A1:A" & LastRow).AutoFilter Field:=1, Criteria1:="<>0064914800*"
      .Range("A2:A" & LastRow).SpecialCells(xlCellTypeVisible).EntireRow.Delete
      .Range("A1").AutoFilter
   End With
End Sub

 

[Buns1976]

Works like a champ Fluff! I'm trying to learn this stuff with a limited amount of time to do so but struggle with some of it. For some reason
the Record Macro is not picking up the sheet specific stuff and I don't know if it should or not?

Thanks so much. You are the best!

 

[Fluff]

You're welcome & thanks for the feedback.

The macro recorder always works on the ActiveSheet & will not give you sheet names