Inserimento pulsanti

Ciao a tutti,
ho creato un file excel con tre colonne (A,B,C), la colonna A verrà valorizzata con un codice a barre, la C non dev’essere valorizzata e nella B è contenuta la seguente formula :

=SE(A2<>""; STRINGA.ESTRAI(A2; 2; LUNGHEZZA(A2)-2); "")

Ho la necessità di inserire 2 pulsanti, il primo in grado di compiere queste 3 azioni:

• ordina la colonna B (che contiene un codice alfanumerico) dal più piccolo al più grande;
  
• Salva in una determinata cartella il file e come nome metta la data e l’ora di salvataggio;
  
• Stampa solo le celle A valorizzate
  

Il secondo che permetta di cancellare il contenuto di tutte le celle non bloccate.

Per favore potreste aiutarmi a capire come fare?
Ringrazio anticipatamente chi mi darà una mano.

inserire pulsanti è facile, basta andare su Sviluppo, Inserisci, poi però occorre scrivere o registrare le macro da abbinare ai pulsanti.
Intanto allega un file di esempio

Sìsì so come fare il pulsante ma non sono molto pratico con VBA...
Comunque ho caricato il file di esempio.

Per cancellare le celle sbloccate ho assegnato al pulsante la seguente macro:


Sub CancellaSbloccate()
Dim zona As Range
Set zona = Range("A1:P45")
For Each cl In zona
If cl.Locked = False Then cl.Clear
Next
End Sub

Sono in difficoltà con il pulsante per l'ordinamento, il salvataggio e la stampa.