Sub DeleteColumns ( )

Range("K:K,M:M,P:P,S:S").Select
Selection.Delete Shift:=xlToLeft

End Sub


Is there a cleaner way to delete these columns than the code above?