copy method failed:application-defined or object-defined error'

Hello Syam1919,

You need to select the range before you copy it.

You have:
Worksheets("sheet1").Range(Cells(i, 1), Cells(i, 30)).Copy Destination:=(Worksheets("sheet2").Cells(i, 1))


Change to:
Worksheets("Sheet1").Range(Cells(i, 1), Cells(i, 30)).Select
Selection.Copy Destination:=Worksheets("Sheet2").Range(Cells(i, 1).Address)

This will fix it,
Leith Ross