I honestly don't understand what you are trying to do, and why you want to paste the data into the Sheet1 sheet.
Your error is that you paste an entire row into a single cell.
It would seem that it is enough to remove EntireRow from the instruction, that is:
Code:
c.Copy Destination: = ws1.Cells (x, "B")
but the result is so strange that I doubt it is the desired one.