Use VBA code to insert 30 blank columns every 30 columns

Is it possible to insert 30 blank columns using VBA code every 30 lines? I've resorted to doing it 720 times manually. and will have to do it gain.insert blank columns.xlsb