我不会使用删除整行。我会将数据向上移动一行，然后清除最后一行的内容。

Sub remove()
 Dim i As Long
 Dim x As Long
 Dim lastCol As Long
 Dim lastRow As Long
 Const dataColumn As Long = 1
 Const SearchPhrase As String = "EV"
 Const firstRow As Long = 1
 lastCol = Cells(firstRow, Columns.Count).End(xlToLeft).Column
 lastRow = Cells(Rows.Count, dataColumn).End(xlUp).Row
  x = 0
  For i = lastRow To firstRow Step -1

    If Left(Cells(i, dataColumn), Len(SearchPhrase)) <> SearchPhrase Then
       If i = lastRow Then
          Range(Cells(lastRow, dataColumn), Cells(lastRow, lastCol)).ClearContents
       Else
          Range(Cells(i, dataColumn), Cells(lastRow - 1 - x, lastCol)).Value = _
          Range(Cells(i + 1, dataColumn), Cells(lastRow - x, lastCol)).Value
          Range(Cells(lastRow - x, dataColumn), Cells(lastRow - x, lastCol)).ClearContents
        End If
        x = x + 1
    End If
  Next i
End Sub