I have updated and re run


.Worksheets("Data").UsedRange.Copy ThisWorkbook.Worksheets("S29 Data").Range("A1")
Error message is object required.