You are right, j=0. but I need to use j to decide which row in "Comments"
sheet to start pasting. DataRow2 is between 2 and 30, and j=DataRow2, why
j=0 happened? I am confused.

thanks

"sebastienm" wrote:

To make sure of that, send a msgbox right before the error:
MsgBox "j= " & j
Worksheets("Comments").Cells(j, 3) = Worksheets("DataEntry").Cells(29, 21)
'Worksheets("Comments").Cells(j, 3) = Worksheets("DataEntry").Cells(37, 21)

Also you can run in debug mode. Put a breakpoint at the 'For DataRowNo2...'
line, then press F8 to run line-by-line and evaluate your variables and
expressions.

--
Regards,
Sébastien
<http://www.ondemandanalysis.com