Range("sonsatır").Offset(1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrAbove
Range("sonsatır").EntireRow.Copy
Range("sonsatır").Offset(1).EntireRow.PasteSpecial xlPasteFormats
Application.CutCopyMode = False
aşağıdaki kod işinize yarayabilir