Dim r  
   For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row - 1  
       If Cells(r, 1) <> Cells(r - 1, 1) Then ActiveSheet.HPageBreaks.Add Before:=Cells(r, 1)  
   Next r

Усложним задачу.  
Есть таблица с шапкой (на несколько строк) и повторяющимися значениями в первом столбце  
А|B|C|D  
1  
1  
1  
2  
2  
3  
3  
3  
 
Необходимо вставить скопированную шапку после каждого повторяющегося значения:  
 
А|B|C|D  
1  
1  
1  
А|B|C|D  
2  
2  
А|B|C|D  
3  
3  
3  
А|B|C|D

{quote}{login=i-le}{date=01.07.2011 12:40}{thema=Re: Re: Вставка скопированных строчек}{post}...Мне нужно разобраться с поставленной задачей...{/post}{/quote}  
Так и пишите об этом, а вот такие вещи - "загадка", "усложним задачу" - больше походят на тестирование способностей жителей Планеты.

Я был. Отвлекли - не глянул, что разлогинился.

{quote}{login=i-le}{date=01.07.2011 02:34}{thema=Вставка скопированных строчек}{post}Ребята, помогите пожалуйста с макросом для вставки скопированных строчек. К форумам обращаюсь первый раз. Изаините, что не так себя повел.  
Заранее благодарен.{/post}{/quote}  
 
Если правильно понял, то так.. см файл  
 
Sub test()  
Dim i As Long  
i = Cells(Rows.Count, 1).End(xlUp).Row  
Do While i > 2  
   If Cells(i, 1) <> Cells(i - 1, 1) Then  
       [A1:D1].Copy
       Cells(i, 1).Insert Shift:=xlDown  
   End If  
i = i - 1  
Loop  
Application.CutCopyMode = False  
[A1].Select
End Sub