if you just pasted in, make sure you have removed the bold formatting tags from the forum post, as i am sure VB will not like them

If ws1.cells(i, 11) = "pending" Then ws1.rows(i).Copy ws2.rows(ws2.Cells(ws2.rows.Count, 11).End(xlUp).Row + 1)
i did not see them when i copied the code from your post
also fix some other error when editing