не срабатывает на последнем шаге

[evdss]

Добрый день!
Не могу понять, почему Заголовок вставляется, кроме как на последнем шаге.
Sub SHD_AddRowsss()
Dim ColN As Integer, LR As Long, i As Long, k As Integer
ColN = 1 'номер колонки для поиска количества строк
k = 0
LR = Cells(Rows.Count, ColN).End(xlUp).Row 'Определяем номер последней строки
For i = 1 To LR
If Val(Cells(i, ColN)) = 24 Then
k = k + 1
If k = 1 Then
Sheets(1).Range("заголовок").Select
Selection.EntireRow.Hidden = False
Selection.Copy
Rows(i + 1 & ":" & i + Cells(i, ColN)).Insert 'вставляем строки
Else
Rows(i + 1 & ":" & i + Cells(i, ColN)).Insert 'вставляем строки
End If
Sheets(1).Range("заголовок").Select
Selection.EntireRow.Hidden = False
Selection.Copy
End If
Next

End Sub

[kuklp]

Непонятно, что у Вас там не вставляется, но позволю себе -
если Вы вставляете диапазоны в цикле, то лучше идти снизу вверх, иначе последние как раз и не вставятся

[evdss]

спасибо, сработало.