Hi all,
I found this Code on the Internet and it works great.
It erases all lines that have empty cells in B and C.
The only thing I would like to change is that it should erase the Line when the cells in D,E,F are empty.
I am too stupid to figure it out.
Thanks for your help.Sub Delete_Row_when_column_B_and_C_are_blank_for_that_row() Dim i As Integer Dim Lastrow As Integer Lastrow = Range("A" & Rows.Count).End(xlUp).Row MsgBox (Lastrow) For i = Lastrow To 2 Step -1 If Trim(Range("B" & i).Value) = "" And Trim(Range("C" & i).Value) = "" Then Range("B" & i).EntireRow.Select Selection.Delete End If Next i MsgBox "Done" End Sub
Tom