Excel VisualBasic Script

Sub content()
    Columns("D:D").ClearContents
End Sub