Delete whole row if column F meets a condition untill last row of data

Hi tom , tried your codes , good news is that there is not error msg or anything , however bad news is that the row supposingly to be deleted off is still there haha !

just to provide more information , this blank cells are resulted in one of my previous codes which i split a long string of message ( that in the message there is no spacing in between words an example of a message like : Hicanihelpuyoutodayis12-03-2012)

i had use

'splits Text active cell using ALT+10 char as separator
Application.ScreenUpdating = False
Dim splitVals As Variant
Dim totalVals As Long
'split every row untill is empty
Worksheets("sheet2").Activate
Range("F2").Select
Do Until IsEmpty(ActiveCell.Value)
splitVals = Split(ActiveCell.Value, Chr(13))
totalVals = UBound(splitVals)
Range(Cells(ActiveCell.Row, ActiveCell.Column + 1), Cells(ActiveCell.Row, ActiveCell.Column + 1 + totalVals)).Value = splitVals
ActiveCell.Offset(1, 0).Select
Loop

so there are empty cells between words ( " hi " , "" , "can" , "" , "help" ...... )

Hope you understand what i am saying =S i not sure how to relate the problem well but this is my try of explaining my problem =S