Removes Duplicates Except Blanks macro

[ScabbyDog]

How can I alter the below so that it still removes duplicates, BUT if there are 2 or more blank cells in the range, it ignores them? The blank cells will have formulas in them but they will have no value.

   ThisWorkbook.Sheets("Sheet 1").Range("$A$40:$A$88").RemoveDuplicates Columns:=Array(1), _
        Header:=xlNo