Excel VBA to delete specific Year-Month on two separate tabs

[bthumble]

Hello,

Need help with VBA code that will delete a specific Year-Month on two specific sheets based on a prompt for user input.

Sheet1 has Year-Month in column HC and Sheet2 has Year-Month in column BE. Would like the VBA to prompt the user to enter the month-year to delete. For example enter 2023-5 to delete May 2023 rows.

Thanks for your time an deffort.

 

[DanteAmor]

Is there a way to leave the filters there>

Try delete this line:
.AutoFilterMode = False

Sub DeleteRows()
  Dim ym As Variant
  
  ym = InputBox("Enter year-month, ex: 2023-5")
  If ym = "" Then Exit Sub
  
  With Sheets("Sheet1")
    .Range("HC1", .Range("HC" & Rows.Count).End(3)).AutoFilter 1, ym
    .AutoFilter.Range.Offset(1).EntireRow.Delete
   
  End With
  With Sheets("Sheet2")
    .Range("BE1", .Range("BE" & Rows.Count).End(3)).AutoFilter 1, ym
    .AutoFilter.Range.Offset(1).EntireRow.Delete
   
  End With
End Sub