В нете нашел макрос, подскажите пожалуйста как изменить макрос под себя. Задача в примере. Заранее признателен за помощь

Нужна помощь. Наперед спасибо. Суть вопроса. После завершения внесения в рабочую таблицу данных по всем ФИО (до 150 человек) в конце месяца макросом разбрасать данные в архив. И так каждый месяц.

Если кто может помогите упростить формулу, так как очень длинная и не хочет работать.Зарание спасибо

=ЕСЛИ(И(G3>365;G3<=365);(3);ЕСЛИ(И(G3>366;G3<=731);(6);ЕСЛИ(И(G3>732;G3<=1096);(9);ЕСЛИ(И(G3>1097;G3<=1461);(12);ЕСЛИ(И(G3>1462;G3<=1826);(15);ЕСЛИ(И(G3>1827;G3<=2192);(18);ЕСЛИ(И(G3>2193;G3<=2557);(21);ЕСЛИ(И(G3>2558;G3<=2922);(24);ЕСЛИ(И(G3>2923;G3<=3287);(27);ЕСЛИ(И(G3>3288;G3<=3653);(30);ЕСЛИ(И(G3>3654;G3<=4018);(33);ЕСЛИ(И(G3>4019;G3<=4383);(36);ЕСЛИ(И(G3>4384;G3<=4748);(36);ЕСЛИ(И(G3>4749;G3<=5114);(39);ЕСЛИ(И(G3>5115;G3<=5479);(42);ЕСЛИ(И(G3>5480;G3<=5844);(45);ЕСЛИ(И(G3>5845;G3<=6209);(48);ЕСЛИ(И(G3>6210;G3<=1000000);(50)))))))))))))))))))

Помогите. Проблема в примере

Помогите, пожалуйста, с задачкой!  
В Excel'е копирую лист в отдельную книгу (MS Office 2003)  
часть n-ячеек содержит количество символов превышающее 255 знаков  
Excel сообщает, что это не допустимо и текстовку в ячейке обрезает до 255 знаков :(Если копировать не через "Переместить/скопировать", а просто выделить всё Ctrl+A, а потом вставить в новую книгу на новый лист, то Excel меняет бланк

Очень нужна помощь.Вопрос в примере