如果范围B4或D4不是日期，我可以重现此错误。
你可能在这些单元格中有文本或其他内容。
在单元格B4和D4中，确保数字格式为“常规”或“日期”，然后再次输入日期。
编辑：
使用文本框会使它变得更复杂，所以考虑一下是否可以使用单元格。但是如果你真的需要使用文本框：
而不是

sDate = Range("B4").Value
EDate = Range("D4").Value

您将需要用途：

sDate = DateValue(ActiveSheet.Shapes("TextBox 1").TextFrame.Characters.Text)
EDate = DateValue(ActiveSheet.Shapes("TextBox 2").TextFrame.Characters.Text)

您需要将“TextBox 1”，“TextBox 2”替换为您的文本框名称。
如果您不知道文本框的名称，可以使用以下命令：

Sub list_shapes()

Dim sh As Shape

For Each sh In ActiveSheet.Shapes
    Debug.Print sh.Name, DateValue(sh.TextFrame.Characters.Text)
Next sh

End Sub

请记住，只有当用户在文本框中输入完整的日期时，上述方法才有效。如果他们输入“1-Jul-23”，它会起作用，但如果他们输入“1-Jul”，它将不起作用。
只有当用户在运行宏时激活了工作表时，上述操作才有效。