excel VBA一数据引用另一张表的数据应该怎么写（excelVBA跨表格提取数据）

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row >= 2 And Target.Row <= 1000 And _

Cells(Target.Row, 8) < Date Then

Application.EnableEvents = False

For i = 9 To 18

Cells(Target.Row, i) = Sheet2.Cells(Target.Row, i).Value

Next

Application.EnableEvents = True

End If

End Sub