Excel VisualBasic Script

Sub column()
    range("D:D").Select
    
End Sub