Copying entire Row From One sheer to another sheet in VBA?

Hi,

Previously i had a requirement of copying the cells which From list to another sheet as

Sheets("sheet3").Range(Target.EntireRow.Address).Value = Target.EntireRow.Value

which i received one of the member in this forum. But now i had an another requirement that is

HTML Code: 

when ever the list item gets changed, the entire row has to be copied to the next sheet if only the user selects "Grapes". Even if the user changes from one worksheet to another worksheet , The Row with "Grapes" Has to be copied to the next sheet