Excel VisualBasic Script

Sub clear()
    Columns("D:D").clear
End Sub