Sub test()
Dim formulaString As String
With ActiveSheet.Range("A:A"): Rem adjust for one column
With Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
formulaString = "TRIM(" & .Address(, , xlR1C1) & ")"
With .Offset(0, 1): Rem adjust for other column
formulaString = "=OR(" & formulaString & "=TRIM(" & .Address(, , xlR1C1) & "))"
With .Offset(.Rows.Count, 0).Resize(1, 1)
.FormulaArray = formulaString
If Not (.Value) Then
.ClearContents
Exit Sub
End If
End With
.EntireColumn.Delete
End With
.EntireColumn.Delete
End With
End With
End Su