根据单元格值删除行宏始终删除第一行

Question

我有一个VBA宏，用于根据单元格中提供的值删除行。因此，我写了一些东西来过滤第二列以找到所需的值并删除该行。我的问题是，由于某种原因，即使工作表中不存在该值，它也总是删除第一行。

M2是在表中具有我想要的值的单元格。 UnMerge部分是因为它合并了一些单元格，而我的sort宏不适用于合并的单元格。

代码如下：

Private Sub DeleteCarte_Click()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("INDEX")
With ws.Range("A6.F600")
    .AutoFilter Field:=2, Criteria1:=Range("M2").Value
    .EntireRow.Delete
End With
Sheets("INDEX").Range("A1:F600").UnMerge
End Sub