Prozent abziehen und Runden

ich muss aus einer Inventurliste bei den Mengenangaben zuerst 10 % abziehen und das Ergebniss dann auf Null stellen ABrunden. Wäre klasse, wenn ich das in ein Makro verpacken könnte, habe bis jetzt aber nur eins gefunden um die 10 % abzuziehen.

Sub Prozent()
Dim AlterWert, NeuerWert, Zelle
For Each Zelle In Selection
AlterWert = Zelle.Value
NeuerWert = AlterWert * 0.9
Zelle.Value = NeuerWert
Next Zelle
End Sub

Evtl kann einer den fehlenden Teil fürs Runden einbauen?
Wäre für schnelle Hilfe extrem dankbar, denn ich muss die Inventur fertig kriegen.

Danke im Vorraus
Philipp