VBA Excel 3 задания

 Помогите пожалуйста с этими заданиями, очень срочно нужно, и нужно объяснение, что делает каждая строчка. Спасибо заранее большое.

Задание 20 Собран урожай из N кг яблок. Определить, через сколько дней будет вынесен весь урожай, если каждый день количество вынесенных корзин удваивается. В одной корзине помещается 5 кг.

Задание 30 Дан ряд диапазон чисел. Удалить в диапазоне все неотрицательные числа и найти максимальный элемент, среди оставшихся чисел.