Vasant is right: you can't "Add" collumns. But if you mean "Insert"
collumns, you can do some this like this:

Sub InsCol()
Columns("E:H").Insert Shift:=xlToRight
End Sub

This will insert 4 collumns before collumn E.