Dim r As Range, rr As Range
For Each r In Range("A:E").Rows
 If (Not IsEmpty(r.Cells(,  2 ))) And (r.Cells(,  2 ) = "Краснодар") Then
  If rr Is Nothing Then Set rr = r Else: Set rr = Union(rr, r)
 End If
Next
rr.Delete

Dim r As Range, rr As Range
For Each r In Range("A:E").Rows
 If (Not IsEmpty(r.Cells(,  2 ))) And (r.Cells(,  2 ) = "Краснодар") Then
        If rr Is Nothing Then
              Set rr = r
          Else
              Set rr = Union(rr, r)
        End If
 End If
Next

If Not rr Is Nothing Then rr.Delete

Dim r As Range, i As Long
With Range("A:E")
For i = .Rows.Count To  1  Step - 1 
 If (Not IsEmpty(.Cells(i,  2 ))) And (.Cells(i,  2 ) = "Краснодар") Then
   .Rows(i).Delete
 End If
Next
End With