Excel VisualBasic Script

Sub autofit()
    range("A1:G1").Columns.autofit
End Sub