You don't say what the problem is but probably Sheet1 and Sheets("Sheet4") being the same sheet could have something to do with it.

In the VBA environment have a look at the Excel Objects for sheets.
The name on the left is the code name of the sheet and the name in brackets is the tab name.
Need to decide which you are going to use and be consistent.