Multiply range with constant and round results

Hi guys, I need a macro that will multiply all cells in a column and round the results.

For example,

A1:A30 is the range

Constant is found in A33

All cell in the range will be multiplied with A33 and the result should be rounded (it will be an int number). The result will overwrite the initial cell.

Thanks for the help

thank you for the quick reply snb, but unfortunately I don't know how to use that