Excel VBA宏-带格式的复制插入数据问题

我有一个电子表格，我在其中插入行和复制粘贴数据（在第一列的任何一行）使用自动填充宏。在macro-Seven Day中，它可以在其他行上正常工作，但在数据位于第一行且第一行具有白色背景的情况下则不行。请导游。 以下是代码：

Sub Macro7Day()

 If ActiveCell.Column = 1 Then
        Dim numCopies As Long
        numCopies = 6

        Dim i As Long
        For i = 1 To numCopies
            Rows(ActiveCell.Row + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Next i
        Range("A5:E5").Copy
        Range(ActiveCell, ActiveCell.Offset(numCopies, 4)).PasteSpecial xlPasteFormats
        ActiveCell.AutoFill Destination:=Range(ActiveCell, ActiveCell.Offset(numCopies, 0)), Type:=xlFillDefault 'xlFillCopy
End If

End Sub

---

根据我的测试，您的代码在复制插入数据时运行良好，格式设置在第1列的任何一行。 然而，正如您所描述的，您的代码在其他行上运行良好，但在数据位于第一行且第一行具有白色背景的情况下则不行。 我想知道“第一行有白色背景”是什么意思，或者第一行并没有数据？ 希望您能对此进行更新

谢谢

---

Yuki

我不确定我是否正确地理解了这个问题，你能朝着正确的方向努力吗？您可以让我们先看一个宏，然后再看另一个。@controlnetic，修改为一个示例