Sub Macro1()
'
' Macro1 Macro
' Macro recorded 09/12/2008 by AXUKLSLAV
'

'
Columns("F:F").Select

For Each Row In Columns("F:F")

Find(What:="closed", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

'FindNext(After:=ActiveCell)Activate

Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Cut
Sheets("Completed Tasks").Select
Range("A2").Select
ActiveSheet.Paste
Range("A3").Select


End Sub


??? Help plz