如何在Excel VBA中插入并拖动公式直到最后一行

起初，您过度使用 Select。它应该仅在一种情况下在代码中使用 - 如果您希望宏在最后指向某个单元格。例如，请参阅这篇文章。
其次，避免智能 UI 反模式。什么是智能 UI，您可以在这里阅读：

第三，我认为你应该在这里使用 sub，而不是 function。

Sub FillFirstDay(Optional dtmDate As Double = 1)

Dim ws As Worksheet
Dim rng As Range
Dim lastRow As Long, firstRow As Long

Set ws = ActiveSheet 'You should assign your sheet here, for example by name

'Then we find our range in E column
With ws
    lastRow = .Range("D" & .Rows.Count).End(xlUp).Row
    firstRow = .Range("E" & .Rows.Count).End(xlUp).Row + 1
    Set rng = Range(.Range("E" & firstRow), .Range("E" & lastRow))
End With

If firstRow >= lastRow Then Exit Sub

'And finally add first date of month
With rng
    .Value = DateSerial(Year(dtmDate), Month(dtmDate), 1)
    .NumberFormat = "yyyy-mm-dd" 'or whatever date format do you like
End With

End Sub

If firstRow >= lastRow Then Exit Sub 行在 E 列中的日期已经填满时终止该过程。