VB Code to expand column width

Hello:

Please refer to attached file.
I need VB Code to expand the column width as needed.
In example, i have data from column A thru R.
As you can see i have column D, H ,K and R which needs to be expanded by VB Code.
Let me know if you have any questions.
Thanks.
Riz