If change in one column using specific word, then copy row to another tab, repeat.

Hi
Try this code:

Sub copydata()
Dim rcnt1 As Long, rcnt2 As Long

rcnt1 = Sheets("SOURCE").Range("A" & Rows.Count).End(xlUp).Row
rcnt2 = Sheets("DESTINATION").Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To rcnt1
If InStr(1, Sheets("SOURCE").Range("F" & i), "fail") > 0 Then
rcnt2 = rcnt2 + 1
Sheets("SOURCE").Rows(i & ":" & i).Copy (Sheets("DESTINATION").Range("A" & rcnt2))
End If
Next
End Sub

Regards...