Hardcode Values, find and replace multiple strings

[smart_beta]

Hello, Guys!

I need to write code to do the following:

1. Copy the entire worksheet named "live" and paste special values (hard-code the lives worksheet).
2. delete rows A1:A7
3. Find the following strings and replace with nothing ""
What:=" 4:00:00 PM", Replacement:=""
What:=" 5:40:00 PM", Replacement:=""
What:=" 3:16:00 PM", Replacement:=""

Please note the space at the beginning of each string. It's probably easier to copy and paste what I wrote to minimize an error.

So far, I've come up with this, but I am sure there is a more succinct way of doing it.

I've attached the file.

Thank you!

J

Sub CopyPasteValues()

Sheets("live").Cells.Copy
Sheets("live").Cells.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

Range("A1:A7").EntireRow.Delete


' I CANNOT FIGURE OUT THE REPLACE SECTION

End Sub