Use this in a module

Code:
Sub InsertColumnsAtN()

    Dim lngCol As Long
    
    For lngCol = 289 To 7 Step -6
        ActiveSheet.Columns(lngCol).Insert
    Next lngCol
    
End Sub