here is the problem
Worksheets("1").Cells(i, 8).Select
Selection.Copy
Worksheets("1").Cells(i, 8).Select
ActiveSheet.Paste
Application.CutCopyMode = False

Here are a few observations about your code:

1. Worksheets("1") would only have ("1") if the name on the sheet tab is 1.
If you
want the first sheet, whatever it is named, use Worksheets(1) or
Sheets(1).
2. The arguments for Cells are Row, then Column. As written, your code would
copy
something from column H to column AJ in the same row. Is that what you
intended?
3. Most importantly, delete the line Application.CutCopyMode = False

Try this more effecient code next time

sheets(1).cells(i, 8).copy
sheets(1).cells(i, 8).paste

That is all that is needed. Note sheets(1) will point to worksheet 1 regardless
of the name.

k_l

Does it work without the line

Application.CutCopyMode = False

Whoops the code should be...and yes it works without the
Application.CutCopyMode = False command

Sheets(1).Cells(i, 8).Copy
Sheets(1).Cells(i, 8).Select
ActiveSheet.Paste