Excel VBA to delete rows that dont match cell value

[Stuepef]

I am looking to write a VBA to delete rows based on a call value within Sheet13. If the value in column A (over 50,000 rows) does not match the cell value in H1, then delete that row. With the amount of rows, I am concerned with the speed and efficiency of the code.

 

[Fluff]

How about

Sub FilterDelete()
   Dim Usdrws As Long
   
   Application.ScreenUpdating = False
   Usdrws = Range("A" & Rows.Count).End(xlUp).Row
   Range("A1").AutoFilter 1, "<>" & Range("H1").Value
   Range("A2:A" & Usdrws).SpecialCells(xlVisible).EntireRow.Delete
   Range("A1").AutoFilter
End Sub

 

[Stuepef]

I have multiple tabs in the workbook, does Sheet13 have to be incorporated into the code? Also, how would the code look if I moved H1 to a tab named Calculations?

 

[Fluff]

Which sheet is the data on?

 

[Stuepef]

The data is on Sheet13. Thinking about moving H1 to "Calculations" tab or Sheet2 code name.

 

[Fluff]

How about

Sub FilterDelete()
   Dim Usdrws As Long
   
   Application.ScreenUpdating = False
   With sheet13
      Usdrws = .Range("A" & Rows.Count).End(xlUp).Row
      .Range("A1").AutoFilter 1, "<>" & sheet2.Range("H1").Value
      .Range("A2:A" & Usdrws).SpecialCells(xlVisible).EntireRow.Delete
      .Range("A1").AutoFilter
   End With
End Sub

 

[Stuepef]

Works like a charm, thank you so much!

 

[Fluff]

Glad to help & thanks for the feedback