Copy and paste row based on cell content

I'm having trouble writing a macro that will copy a row of a table and paste
it into another sheet based on if the contents of a single cell in the row
contain a certain word.
Thanks,
BDan

Sub CopyRow()
Dim SingleCell as Range
Set SingleCell = Range("A1")
If InStr(1,SingleCell.Value,"certain word") > 0 Then
SingleCell.EntireRow.Copy
Sheets(2).Activate
Cells(1,1).PasteSpecial xlPasteAll
End Sub

HTH

Die_Another_Day

BDan wrote:
> I'm having trouble writing a macro that will copy a row of a table and paste
> it into another sheet based on if the contents of a single cell in the row
> contain a certain word.
> Thanks,
> BDan