Иногда в программе требуется организовать безусловное округление к большему.
В макросе и в формуле англоязычного Офиса можно использовать RoundUp, в формуле русскоязычного Офиса - ОКРУГЛВВЕРХ.
Но, к сожалению, в VBA эта функция не имеет реализации.
Решение проблемы возможно несколькими способами.
Первый, полноценный - обратиться к функциям книги

Код

Rounded = Application.WorksheetFunction.RoundUp(NotRounded, 0)

Второй - округляющий только до целого

Код

Rounded = int(-abs(NotRounded)) * sgn(-NotRounded)

Впрочем, вполне возможно доделать код по второму варианту до округления с заданной точностью. Но это уж как-нибудь сами...