[gr8styl]

Καλημέρα/Καλησπέρα,
για δοκιμάστε και αυτό αν θέλετε
το μόνο που χρειάζεται είναι να έχουμε μια κενή γραμμή οπουδήποτε στο φύλλο
εγω χρησιμοποίησα την γραμμη 2 (Const i=2) και
υπέθεσα ότι τα true false είναι στη γραμμή 4 (Const j=2)

Αλλαξτε τα στην αρχή του κώδικα αν χρειαστεί.

Option Explicit
 
Sub Remove_False()
 
Const i = 4 'Line number of True False values
Const j = 2 'Line number of an empty line.
 
   Range(j & ":" & j).FormulaR1C1 = "=IF(OR(R[" & i - j & "]C,R[" & i - j & "]C=""""),,""D"")"
   Rows(j & ":" & j).SpecialCells(xlCellTypeFormulas, xlTextValues).EntireColumn.Delete
   Range(j & ":" & j).EntireRow.Clear
End Sub