Sub AddLines()
Application.ScreenUpdating = False
DerLig = [B10000].End(xlUp).Row
Range(Cells(DerLig, 1), Cells(DerLig, 14)).Copy
Range(Cells(DerLig + 1, 1), Cells(DerLig + 1, 14)).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub