I'm trying to create a loop macro that will delete a row based on its value,
but somehow is not working. I'm not an expert in macros so can anyone point
me in the right direction?

Please HELP!

Sub rowdeletion()

' rowdeletion Macro

x = ActiveCell.Row

Do While Cells(x, 2).Value < "" (I keep getting a type missmatch error on
this line)



'If (Columns("B:B").Select < "#VALUE!") Then

' Rows("1:1").Select

' Selection.Delete Shift:=xlUp

' End If



x = x + 1

Loop

End Sub


Thanks