how to delete delete rows with criteria and keeping formula

Hello everyone,

I got this code for deleting empty rows if column B has no value. It works fine except that column B contains formula's that when the marco is run, is converted to values. How can I keep the formulas in column B? Much appreciate your help!


Sub RemoveEmptyRows()
On Error Resume Next
With Range("B3:B100")
.Value = .Value
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End Sub


Regards Remco

It works.... brilliant, tnx!