關於VB..語言

以下...

Sub 股()
Dim Temp(0 To 15) As Single

Temp(0) = Date
Sheets("2412").Select
Temp(1) = Cells(3, 1)
Temp(2) = Cells(3, 2)
Temp(3) = Cells(3, 3)


'將最新資料自動填入數據備份表的最下面一列
Sheets("sheet1").Select
With ActiveSheet.Range("a1").End(xlDown)
For I = 0 To 3
.Offset(1, I) = Temp(I)
Next
End With

End Sub

上述有任何問題嗎.....因為一直偵錯....
如有不足的地方我可以再PORT上來