Excel 添加新行并复制相同的格式和公式

我必须在最后一行下面添加新行，例如，通过单击命令按钮。新行的格式和公式应与上面的其他行相同。 上面的行具有条件格式、颜色、下拉列表、数据验证、固定行高和公式。所有这些都应该在创建新行时自动复制。工作表被保护。 你能帮我写什么代码来获得最好的结果吗。 此外，工作表应允许用户删除所选行。 谢谢

请看一下：

及

---

有几个。例如

xlPasteFormats

仅粘贴格式。

欢迎使用StackOverflow。本网站不是免费的代码编写服务。请显示您已有的代码。对不起，我没有任何代码，因为我仍然是VBA的初学者。这就是我寻求帮助的原因。欢迎来到Stack Overflow。所以这不是一个“为我编码”、“教我编码”或“展示从哪里开始”的网站。对于那些有特定问题的现有代码的人来说，这是一个获得克服上述问题的特定帮助的地方。如果您还不知道如何编写代码，那么您必须学习它：首先记录您希望Excel为您做的事情：然后，查看代码并尝试理解它。此外，您可能想阅读以下内容：然后您应该能够自己提供上述问题的第一个解决方案。但行不应从上面的行复制任何文本或值。对于新数据，它应该为空。请告诉我，我必须添加哪些代码才能使单元格不复制以前的文本或值。请不要在注释中添加任何代码，请使用“编辑”按钮编辑问题，并将格式良好的代码添加到问题中。代码注释不可读。

Sub Add_row()
    ActiveSheet.Unprotect
    ActiveSheet.Range("A13").CurrentRegion.Offset(ActiveSheet.Range("A13").CurrentRegion.Rows.Count - 1).Resize(2).EntireRow.FillDown
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True, AllowDeletingRows:=True,  AllowSorting:=True, AllowFiltering:=True
End Sub

Worksheets("Sheet1").Range("A1:D4").Copy 'example

Worksheets("Sheet1").Range("D5").PasteSpecial Paste:=xlPasteFormats