Вы можете просто использовать формулы Excel, как предложил Скотт. Нет причин делать это с VBA.
Дайте ячейке A1 формулу: =DATE(YEAR(TODAY()),MONTH(TODAY())-1,16)
Дайте ячейке A2 формулу: =DATE(YEAR(TODAY()),MONTH(TODAY()),15)
Если вам нужны даты в этом конкретном формате, установите для ячеек специальный формат dd-mmm-yyyy
.