TELEFONIA FIXA,
Segue exemplo: http://www.sendspace.com/file/sgaanu
Neste, toda vez que você clicar no ícone de impressora que coloquei, vai atualizar o número e imprimir. Aí ele mantém o último número e atualiza próxima vez que você clicar na impressorinha.
Agora, se você quiser manter cópias das OSs salvas, adicione esse código antes de 'end sub' :
ActiveSheet.Shapes.Range(Array("Picture 8")).Select
Selection.Delete
ChDir "C:\"
ActiveWorkbook.SaveAs Filename:="C:\OS " & X & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
No caso, salva na pasta 'C:', mas mude o caminho para qualquer pasta que quiser salvar!!
Diga se ficou do jeito que você queria, ok?
Ah..pode mudar manualmente o número, se precisar também! por exemplo, se a última OS que você fez foi a 32, coloque 32 na planilha que, quando clicar no ícone, vai imprimir a 33.