Hardcode Values, find and replace multiple strings

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

Something like this.

Please Login or Register  to view this content.

Thank you!

Originally Posted by jindon

Something like this.

Please Login or Register  to view this content.