Insert shift down issue macro issue

Try:

Sub example1()
Application.ScreenUpdating = False
Sheets("one").Range("B5:Y5").Copy
With Sheets("two")
   .Range("B5:Y5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   .Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End With
Application.ScreenUpdating = False
StartTimer
End Sub

Regards, TMS