HI, I need to macro to save it as adds in to insert to any document in ribbon. First step is to insert header and Footer. Second fit all columns in...

HI, I need to macro to save it as adds in to insert to any document in ribbon. First step is to insert header and Footer. Second fit all columns in the page. Document has about 9 columns.

Thanks

.LeftHeader = "Organization "

.CenterHeader ="Department"

.RightHeader ="Name"

.LeftFooter = "Date"

.RightFooter="Page"