This example deploys a notebook. I hope this helps.
nbexpr=Notebook[{Cell["Manipulate[Plot[Sin[n x],{x,0,6}],{n,1,10}]","Input"], Cell["Manipulate[Plot[Cos[n x],{x,0,6}],{n,1,10}]","Input"]}]; CloudExport[nbexpr,"NB","Manipulate"]
