{quote}{login=Warbler}{date=07.09.2010 01:33}{thema=P.S.}{post}отформатировать новую строку по образцу {/post}{/quote}  
Образец для форматирования очень понравился. Как Вы это сделали?

Например, вот так:  
 
Sub Copy_Formats()  
   Range("D6").Select  
   Selection.Copy  
   Range("D10").Select  
   Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _  
       SkipBlanks:=False, Transpose:=False  
End Sub

{quote}{login=Warbler}{date=07.09.2010 02:03}{thema=}{post}Например, вот так:  
 
Sub Copy_Formats()  
   Range("D6").Select  
   Selection.Copy  
   Range("D10").Select  
   Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _  
       SkipBlanks:=False, Transpose:=False  
End Sub{/post}{/quote}  
 
или вот так:  
 
Sub Copy_Formats()  
   Range("D6").Copy  
   Range("D10").PasteSpecial Paste:=xlPasteFormats, _  
                             Operation:=xlNone, _  
                             SkipBlanks:=False, _  
                             Transpose:=False  
End Sub  
 
Файл с примером данных будет?  
(утром файл - вечером макрос, или вечером — файл, а на другой день утром — макрос. А другие условия душа не принимает) (сорри, :) )  
Вопросы:  
а) что делать, если в столбце В Листа1 значения ячейки В1 Листа2 - не найти?  
в) т.е. если не формулы - то вообще ничего не копировать?

{quote}{login=гость}{date=07.09.2010 02:35}{thema=Re: }{post}Вопросы:  
а) что делать, если в столбце В Листа1 значения ячейки В1 Листа2 - не найти?  
в) т.е. если не формулы - то вообще ничего не копировать?{/post}{/quote}  
Ответы:  
1. Спасибо, пока не сталкивалась с ситуацией, что значения В1 не было, поэтому не подумала, что делать. Наверное, проще всего сказать пользователю: Создай раздел "В1".  
2. Как правило, формул нет только в столбцах С, D, E, в которые и переносятся данные с Листа2. Если не формулы - ничего не копировать. Можно написать "ВНИМАНИЕ", но это уже роскошь :)

Ну вот, файл есть, ответа нет :(

Замечания, дополнения, указания и пр. найдут искреннюю благодарность.

Держите вариант. Хотя Вы со всем справились сами:)  
Нажмите кнопку ответить с цитированием и скопируйте код. Он будет с отступами:)  
 
Option Explicit  
 
Sub Insert_Row()  
   Dim BaseSht As Worksheet, CurrentSht As Worksheet  
   Dim i As Integer, iRow As Integer, iColmn As Integer  
   Dim rFndRng As Range  
   'присваиваем листы переменным для удобства обращения в коде  
   Set BaseSht = ThisWorkbook.Sheets("Лист1")  
   Set CurrentSht = ThisWorkbook.ActiveSheet  
   '  
   'определяем по первой ячейке в выделенном диапазоне  
   iRow = Selection.Cells(1, 1).Row  
   iColmn = Selection.Cells(1, 1).Column  
       '  
   If iColmn > 1 Then  
       MsgBox "Установите курсор на идентификаторе!"  
       Exit Sub  
   End If  
   '  
   Dim FinalRow As Integer  
   FinalRow = iRow + Selection.Rows.Count - 1  
   '  
   For i = iRow To FinalRow  
       '  
       Dim A As String  
       Dim B As String  
       '  
       A = CurrentSht.Cells(i, 1).Value  
       B = CurrentSht.Cells(i, 2).Value  
 
       With BaseSht  
           Set rFndRng = .UsedRange.Columns(1).Find(What:=A, LookIn:=xlValues, LookAt:=xlWhole)  
           If rFndRng Is Nothing Then  
               Set rFndRng = .UsedRange.Columns(2).Find(What:=B, LookIn:=xlValues, LookAt:=xlWhole)  
               If Not rFndRng Is Nothing Then  
                   Dim rFndRngRow As Integer  
                   rFndRngRow = rFndRng.Row  
                   .Cells(rFndRngRow + 1, 1).EntireRow.Insert  
                   'копируем ячейки с формудами и форматами из строки с найденным разделом  
                   .Range(.Cells(rFndRngRow, 1), .Cells(rFndRngRow, 8)).Copy Destination:=.Cells(rFndRngRow + 1, 1)  
                   'во вставленной строке удаляем константы  
                   .Range(.Cells(rFndRngRow + 1, 1), .Cells(rFndRngRow + 1, 8)).SpecialCells(xlCellTypeConstants, 23).ClearContents  
                   'копируем на лист база значения из ячеек C   D   E  
                   Range(Cells(i, 3), Cells(i, 5)).Copy Destination:=.Cells(rFndRngRow + 1, 3)  
 
                   'здесь не понял:)  
                   Dim F As String  
                   F = .Cells(rFndRngRow + 1, 6).Value  
                   .Range("Template").Find(F).EntireRow.Copy  
                   .Cells(rFndRngRow + 1, 1).PasteSpecial xlPasteFormats, xlNone, False, False  
 
               Else  
                   MsgBox ("Раздел " & B & " не найден. Создайте раздел " & B & "!")  
 
               End If  
           End If  
       End With  
   Next i  
   '  
End Sub