Sub test()
   Dim z, i&: z = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
   With CreateObject("VBScript.RegExp"): .Pattern = "000руб"
   For i = 1 To UBound(z)
      If .test(z(i, 1)) Then z(i, 1) = .Replace(z(i, 1), "")
   Next
    End With
  Range("A1").Resize(UBound(z), 1).Value = z
End Sub