Например столба "А" Columns("A:A").Select
Columns("A:A").EntireColumn.AutoFit
Stepler ^{(щёлк-щёлк!!)}