Macro to Filter and Delete Rows

[cr2289]

I see posts for this but can't seem to get any of the solutions to work.

I have spreadsheets that will contain numerical and text values in column F. The number of rows on the spreadsheets will vary.

There is a header row. I need to filter an array in column F (i.e., 1, 2, C14) to the end of the spreadsheet containing data - then delete those rows without leaving any empty rows on the spreadsheet. Help?

 

[Michael M]

What data exactly in column "F" needs to be deleted ?
IS the data the only data in each cell, or is it partial data ?

 

[cr2289]

Hi, Michael.

The values in column F are both text and numbers. Examples are: 0 , 1 , 5, C14, D5. I need to filter out specific codes, just 1 & D5, and delete the rows with those values in column F. The number of rows on the spreadsheets will vary, so I need a macro that will select to the bottom row of any spreadsheet.

Thank you!

 

[cr2289]

Michael, a couple more things. The spreadsheet has a header row and columns A thru AC. Thank you!!!

 

[Fluff]

How about

Sub cr2289()
   Dim Ary As Variant
   
   Ary = Array("1", "D5")
   With ActiveSheet
      .Range("A1:F1").AutoFilter 6, Ary, xlFilterValues
      .AutoFilter.Range.Offset(1).EntireRow.Delete
      .AutoFilterMode = False
   End With
End Sub