哪位大侠帮看下，按钮保存第一行日期正确。其他行不知道显示的什么了

sas868

哪位大侠帮看下，保存第一行日期正确。其他行不知道显示的什么了
http://club.excelhome.net/thread-1197111-1-1.html
是不是发错地方了，那边没人理。
哪位大侠帮看下，保存打印后   ，统计表的第一行日期显示正确。其他行不知道显示的什么了。刚接触函数，用别人的代码


这是代码，循环那不懂什么意思。请指教啊大虾们

Sub 打印()
'打印票据
Sheets("打印").Select
ActiveWindow.SelectedSheets.PrintOut '调用打印命令打印当前页
'保存数据
With Sheets("统计")
x = .Range("a65536").End(xlUp).Row + 1 '取得“记录”表中最后一个空行的行号（即写入位置）
For i = 0 To 0
.Cells(x + i, 1) = [j3]
.Cells(x + i, 2) = [b3]
.Cells(x + i, 3) = [c3]
.Cells(x + i, 4) = [e3]
.Cells(x + i, 5) = [g3]
Next
End With
MsgBox "打印并保存完毕", , "提示"
End Sub