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

Hi I am not sure I understood You but check this and give the info is it ok?

Sub aa()
Dim lastf As Long
Dim x As Long
lastf = Cells(Rows.Count, "F").End(xlUp).Row
For x = lastf To 1 Step -1
    If IsEmpty(Cells(x, 6)) Then
    Cells(x, 6).EntireRow.Delete
    End If
   Next
End Sub

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

Here's a faster algorithm (uses AutoFilter instead of a Loop):

Public Sub DeleteRows()
    
    Dim lastRow As Long
    Dim rng As Range

    Rows(1).Insert
    Range("F1").Value = "Temp"
    With ActiveSheet
        .UsedRange
        lastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
        Set rng = Range("F1", Cells(lastRow, "F"))
        rng.AutoFilter Field:=1, Criteria1:="="
        rng.SpecialCells(xlCellTypeVisible).EntireRow.Delete
        .UsedRange
    End With

End Sub

send maybe the sample (excel file)

BookKeeping.xls

Here you go a sample data of what i am doing

Please note the third row consist of blank cells but happens to contain something but i am not sure whats its value is like a space or some value !


i need to search through all rows of data till the last , deleting whole row like row 3 has

BTW Please note also that the total table rows varies too , so there are rows similar to row 3 will be in randomly row places or maybe at the last row of all rows too !

try this then

Sub aa()
Dim lastf As Long
Dim x As Long
lastf = Cells(Rows.Count, "F").End(xlUp).Row
For x = lastf To 1 Step -1
    If IsEmpty(Cells(x, 6)) Or Cells(x, 6).Value = Chr(10) Then
    Cells(x, 6).EntireRow.Delete
    End If
   
   Next
End Sub

or try to change code from other Poster above (faster one)
p.s. your empty cells contain chr(10)