Deleting Rows to have a specific year

[Guzzlr]

Hello all,
I have a large data set with years of 2019, 2020, 2021, in column A.
I want to filet and delete all rows that do not have a year of 2021, so I only have 2021 showing...all other rows are deleted.

I have the following code:

With Sheets("HV-1")
    Sheets("HV-1").Select
    Cells.Select
    Selection.AutoFilter
      With .Range("A2", .Range("A" & Rows.Count).End(xlUp))
        .AutoFilter 1, "2019*"
        .Offset(1).SpecialCells(xlVisible).EntireRow.Delete
        .AutoFilter 1, "2020*"
        .Offset(1).SpecialCells(xlVisible).EntireRow.Delete
      End With
    .AutoFilterMode = False
End With

This does work, however, if I do not have a year of 2019, it will fault on me. Is there a better way to filter and delete all rows other than 2021, show only 2021 is left showing?
Thanks for the help

 

[Fluff]

How about

With Sheets("HV-1")
   .Range("A2", .Range("A" & Rows.Count).End(xlUp)).AutoFilter 1, "<>2021"
   .AutoFilter.Range.Offset(1).EntireRow.Delete
   .AutoFilterMode = False
End With

 

[Guzzlr]

Hello,
I tried the above code, and it deleted all rows, including rows with 2021
Thanks for the help

 

[Fluff]

What exactly is in col A?

 

[Guzzlr]

A CSV Text, that starts at the very beginning as: 2020-3-24:6_12_29 (all the way to around row 16K)
I want to start the entire program with fileting out all the unnecessary dates (<>2021), simply to have a smaller data set to work with.
From there, I go into "Text to Columns" to clean it up and brake it up into Date for Column A, and Time in Column B. I use the recorder for the Text to Column:

'Text to Columns
'Split Date/Time
Columns("A:A").Select
Selection.TextToColumns _
Destination:=Range("A1"), _
DataType:=xlDelimited, _
ConsecutiveDelimiter:=True, _
Space:=True
Selection.NumberFormat = "m/d/yyyy;@"
Columns("B:B").Select
Selection.NumberFormat = "[$-x-systime]h:mm:ss AM/PM"

Thanks for the help

 

[Fluff]

In that case try

.Range("A2", .Range("A" & Rows.Count).End(xlUp)).AutoFilter 1, "<>2021*"

 

[Guzzlr]

In that case try

.Range("A2", .Range("A" & Rows.Count).End(xlUp)).AutoFilter 1, "<>2021*"

So I'm using your suggestion styled in the code below, which is working.

With Sheets("Spray Booth 1")
    Sheets("Spray Booth 1").Select
    Cells.Select
    Selection.AutoFilter
      With .Range("A1", .Range("A" & Rows.Count).End(xlUp))
        .AutoFilter 1, "<>2021*"
        .Offset(1).SpecialCells(xlVisible).EntireRow.Delete
      End With
    .AutoFilterMode = False
End With

If there is a cleaner way to use this, I would be interested!
Thanks for the help!

 

[Fluff]

Yes, the way I showed. If you do not have any cells that start 2021 you will get an error.