Sub DeleteRowsIfCellsAreEmptyInColumnsDandFandK()
Dim LastRow As Long
LastRow = Cells.Find("*", , xlFormulas, , xlRows, xlPrevious).Row
Range("[B][COLOR=#ff0000]D[/COLOR][/B]5:[B][COLOR=#ff0000]D[/COLOR][/B]" & LastRow) = Evaluate(Replace("IF(LEN(D5:D@&F5:F@&K5:K@)," & _
"IF(LEN([COLOR=#ff0000][B]D[/B][/COLOR]5:[COLOR=#ff0000][B]D[/B][/COLOR]@),[COLOR=#ff0000][B]D[/B][/COLOR]5:[B][COLOR=#FF0000]D[/COLOR][/B]@,""""),""#N/A"")", "@", LastRow))
On Error Resume Next
Columns("D").SpecialCells(xlConstants, xlErrors).EntireRow.Delete
On Error GoTo 0
End Sub