Please use code tags with your code

x.EntireRow.Copy Sheets("sheet3").Cells(1)