VBA Coding to select cell under Headings when using filter

[SAMCRO2014]

I am using a filter to show all "BB" transactions and delete the rest of the rows that are not "BB". Here is what I recorded when I did it:

'Set autofilter on Column E for "BB" and delete all other rows
Range("A1").Select
Sheets("PPDR_BB").Select
Rows("1:1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$T$15865").AutoFilter Field:=5, Criteria1:=Array( _
"#N/A", "Overtime", "PAR", "Premiums", "Regular"), Operator:=xlFilterValues
Range("A634").Select
Range(Selection, Selection.End(xlToRight)).Select
Range("A634:P634").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete
ActiveSheet.Range("$A$1:$T$633").AutoFilter Field:=5

My question is how can I adjust the coding to delete the rows under the headings that I do not require as the starting row will be variable.

Thanks

 

[DanteAmor]

Try this

Sub test()
  Dim sh As Worksheet, lr As Long
  Sheets("PPDR_BB").Select
  Set sh = ActiveSheet
  If sh.AutoFilterMode Then sh.AutoFilterMode = False
  lr = sh.Range("E" & Rows.Count).End(xlUp).Row
  sh.Range("A1:T" & lr).AutoFilter Field:=5, Criteria1:=Array( _
    "#N/A", "Overtime", "PAR", "Premiums", "Regular"), Operator:=xlFilterValues
  sh.AutoFilter.Range.Offset(1).EntireRow.Delete
  sh.ShowAllData
End Sub

 

[SAMCRO2014]

Thank you!!!!

 

[SAMCRO2014]

Try this

Sub test()
  Dim sh As Worksheet, lr As Long
  Sheets("PPDR_BB").Select
  Set sh = ActiveSheet
  If sh.AutoFilterMode Then sh.AutoFilterMode = False
  lr = sh.Range("E" & Rows.Count).End(xlUp).Row
  sh.Range("A1:T" & lr).AutoFilter Field:=5, Criteria1:=Array( _
    "#N/A", "Overtime", "PAR", "Premiums", "Regular"), Operator:=xlFilterValues
  sh.AutoFilter.Range.Offset(1).EntireRow.Delete
  sh.ShowAllData
End Sub

I am getting a compile Error:

Block If without End if. I have tried putting the end if in several places with no success.

 

[DanteAmor]

Did you copy complete the macro of post #2 ?

Did you modify some of the original macro?

 

[SAMCRO2014]

No, I printed it off. I got it to work. Thanks for you help!

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.