Вставка строки со сдвигом вниз - VBA

Формулировка задачи:

   Next i
                 Dim v As Integer
                 Dim pro As Range
                For i = 1 To UBound(part)
                        Set NAH = Range("B57:B6000").Find(what:=part(i).ima, LookAt:=xlWhole)
                        If bp <> 0 Then
                            For v = 1 To bp
                            Set pro = part(i).komplekt.belok(v)
                            Range(Cells(pro.Row, pro.Column + 1), Cells(pro.Row, pro.Column + 3)).Copy
                            Cells(NAH.Row + 1, 4).PasteSpecial Paste:=xlPasteValues
                            Next v
                        End If
                Next i:

Операция Cells(NAH.Row + 1, 4).PasteSpecial Paste:=xlPasteValues вставляет данные в строку, затирая данные на строке NAH.Row + 1 А мне надо чтобы при вставке остальные строки сохранялись , но сдвигались бы вниз.К примеру операция хочет записать данные в строку 60 , но в ней есть данные, поэтому строка 60 сдвигается вниз и ее номер становится 61, а на место 60 освободившейся строки оператор вставляет данные

Решение задачи: «Вставка строки со сдвигом вниз»

textual
                            Листинг программы 
                        

                                Cells(NAH.Row + 1, 4).Insert Shift:=xlDown
'после цикла
    Application.CutCopyMode = False
                        