The_Prist, благодарю.    
С форматированием всё получилось.  Макрорекодер мучаю, но пока не очень успешно, как видите.  
Спасибо ещё раз, буду разбираться со вставкой...

И ещё один вопрос.    
Как сделать (поправить макрос), чтобы данные вставлялись без форматирования?    
Может кто ссылочку подкинет где про это почитать? На форуме не могу найти похожих тем по моей проблеме.

EducatedFool, огромное спасибо за вашу помощь. Макрос отлично работает.  
 
Но у меня остался ещё один не разрешённый вопрос, как поправить этот код, чтобы макрос не очищал все строки под шапкой и копировал туда данные, а именно вставлял необходимое количество строк с ними, оставляя тем самым строку итогов. Дело в том, что мне нужно переносить данные в некую форму, в которой под данными будет ещё дополнительная информация и если они будут удалятся получится не совсем то, что я хочу получить. Попробовал в коде изменить "Copy shf.Cells" на "Paste shf.Cells" и на "Insert shf.Cells", но так как знаний в VBA  я "ноль" - фокус не удался.  
Буду признателен за помощь.