Also i found vba for this but unable to use as its showing some errors. since i am not familiar with vb code much. may you can try and compile.
Sub Group_Sheets()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Select
Columns("D:F").Group
Columns("H").Group
Columns("O:Q").Group
Columns("S").Group
Columns("Z:AB").Group
Columns("AD").Group
Next ws
End Sub