Too many characters again...
Insert one line
        With Sheets("2").Cells(1)
            On Error Resume Next
            .CurrentRegion.ClearContents