For the third time, you MUST change your sheet name.
Change:
With Worksheets("Sheet1")
to
With Worksheets("A1")