Add Rounding off Formula to selected columns

Hi Maras_mak. Thank you so much. The below codes i expected.

Sub Round_2()
Dim rng As Range, e As Range

Set rng = Selection.SpecialCells(xlCellTypeConstants, 1)
For Each e In rng
e = WorksheetFunction.Round(e, 0)
Next
End Sub