Be', la routine descritta da nicola75ss allora è più o meno corretta.

Io in genere però le scrivo così:
codice:
Sub Pari
  Dim Cella
  For Each Cella In Selection
    If Cella Mod 2 Then Cella.Value = ""
  Next Cella
End Sub
Per quanto riguarda l'ordinamento:
codice:
Sub OrdinaRighe()
  Dim Riga
  For Each Riga In Selection.Rows
    Riga.Sort Key1:=Riga.Cells(1, 1), Orientation:=xlLeftToRight
  Next Riga
End Sub
Per creare un paio di pulsanti che eseguono i comandi, hai due scelte:
inserire degli shape (dalla toolbar dei disegni, può essere un rettangolo o un immagine)
inserire un pulsante (dalla toolbar moduli)

Una volta inserito l'oggetto, tasto dx -> Assegna macro -> vai a cercare Pari e OrdinaRighe. Per eseguirle, selezioni l'area su cui vuoi operare e premi il pulsante!

Fatto tutto come volevi?

Ciao
Lucio