I'm stuck in a loop! What I'm trying to achieve is starting in column A row 1 check to see if the cell value is "Unit" if so stop the code if not delete the row and test the cell value again.
Private Sub DeluptoUnit()
If Not ActiveCell = "Unit" Then Rows.Delete
Loop Until ActiveCell = "Unit"