提示错误9，下标越界，请老师修正

838833928

Private Sub Worksheet_Change(ByVal Target As Range)
    If (Target.Row = 1 And Target.Column = 1) Then
        Worksheets("数据").Cells(1, 3).Value = Worksheets("B").Cells(1, 3).Value + 1
        Worksheets("数据").Cells(Worksheets("数据").Cells(1, 3).Value, 1).Value = Worksheets("Date").Cells(2, 2).Value
        Worksheets("数据").Cells(Worksheets("数据").Cells(1, 3).Value, 2).Value = Worksheets("转换").Cells(1, 1).Value
    End If
End Sub