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