VBA从另一张表中获取数据

Question

目前我正在尝试从其他工作表中获取数据，在当前工作表中，用户键入他们想要获取的日期。我收到语法错误，当我尝试获取数据时。 这是我的代码。

Private Sub CommandButton1_Click()

Dim Fund As String, Start, EndD As Date


Fund = Range("B4")
Start = Range("B5")
EndD = Range("B6")
Dim rngS As Range
Dim rngE As Range

   Set rngS = Sheets("Sheet1").Range("A1:A10000").Find(Start, lookat:=xlPart)
    Set rngE = Sheets("Sheet1").Range("A1:A10000").Find(EndD, lookat:=xlPart)
      Sheets("Sheet1").Range("rngS.Address:rngE.Address").Copy Destination:=Sheets("mySheet01").Range("A8")



End Sub