Para abrir e fechar grupos de células, você deseja Shift+Ctrl+{ e Shift+Ctrl+} , respectivamente.
Existem montes de teclas de atalho listadas na documentação: NotebookShortcuts e KeyboardShortcutListing
Se você quiser algo extra, você precisa combinar o comando apropriado ou FrontEndToken e colocá-lo em o arquivo KeyEventTranslations.tr . Este arquivo pode ser encontrado em
FileNameJoin[{$InstallationDirectory, "SystemFiles", "FrontEnd",
"TextResources", "X", "KeyEventTranslations.tr"}]
em que você substitui "X" pela plataforma que possui, "X" , "Windows" ou "OSX" .
Por exemplo, um atalho para mover para a próxima célula pode ser implementado adicionando
Item[KeyEvent["g", Modifiers -> {Control}],
FrontEndExecute[SelectionMove[InputNotebook[], Next, Cell]]]
para o KeyEventTranslations.tr .
Para obter mais informações, aqui vai uma pergunta sobre SO em personalização dos atalhos da mathematica (com bons links) e um em adicionando uma chave para (des) comentar o código no Mathematica 7 .