判断最后一个单元格为空值，为什么明明是空的，判断为不为空

greenstare1234

x = .Range("d65536").End(xlUp).Row + 1判断最后一个单元格为空值，为什么明明是空的，判断为不为空，打单生成的记录 就每一单 都要空几行无法紧挨着，是什么原因了，感谢各位帮忙看看！

代码如下：
Sub 打单保存()

'

' 打单保存 Macro

'

'Sheets("打单系统").Select

With Sheets("打单明细表")

  x = .Range("d65536").End(xlUp).Row + 1

  For i = 0 To 15

     .Cells(x + i, 4) = Cells(i + 29, 30)

     .Cells(x + i, 5) = Cells(i + 29, 31)

     .Cells(x + i, 6) = Cells(i + 29, 32)

     .Cells(x + i, 7) = Cells(i + 29, 33)

     .Cells(x + i, 8) = Cells(i + 29, 34)

     .Cells(x + i, 9) = Cells(i + 29, 35)

     .Cells(x + i, 10) = Cells(i + 29, 36)

     .Cells(x + i, 11) = Cells(i + 29, 37)

     .Cells(x + i, 12) = Cells(i + 29, 38)

     .Cells(x + i, 13) = Cells(i + 29, 39)

     .Cells(x + i, 14) = Cells(i + 29, 40)

     .Cells(x + i, 15) = Cells(i + 29, 41)

     .Cells(x + i, 16) = Cells(i + 29, 42)

     .Cells(x + i, 17) = Cells(i + 29, 43)

     .Cells(x + i, 18) = Cells(i + 29, 44)

     .Cells(x + i, 19) = Cells(i + 29, 45)

     .Cells(x + i, 20) = Cells(i + 29, 46)

     .Cells(x + i, 21) = Cells(i + 29, 47)

     .Cells(x + i, 22) = Cells(i + 29, 48)

     .Cells(x + i, 23) = Cells(i + 29, 49)

     .Cells(x + i, 24) = Cells(i + 29, 50)

     .Cells(x + i, 25) = Cells(i + 29, 51)

     .Cells(x + i, 26) = Cells(i + 29, 52)

     .Cells(x + i, 27) = Cells(i + 29, 53)

     .Cells(x + i, 28) = Cells(i + 29, 54)

     .Cells(x + i, 29) = Cells(i + 29, 55)

     .Cells(x + i, 30) = Cells(i + 29, 56)

     .Cells(x + i, 31) = Cells(i + 29, 57)

     .Cells(x + i, 32) = Cells(i + 29, 58)

     .Cells(x + i, 33) = Cells(i + 29, 59)

     .Cells(x + i, 34) = Cells(i + 29, 60)

     .Cells(x + i, 35) = Cells(i + 29, 61)

     .Cells(x + i, 36) = Cells(i + 29, 62)

     .Cells(x + i, 37) = Cells(i + 29, 63)

     .Cells(x + i, 38) = Cells(i + 29, 64)


Next

End With

Range("m23,q23,a29:f31,o29:v31,b25,b26,g25,g26,m25,m26,v25,u33,b34").ClearContents

  s = Range("v22")

Range("v22") = Left(s, 3) & Right("0000" & Right(s, 10) + 1, 10)

MsgBox "保存完毕", , "提示"

End Sub

greenstare1234

生成的单据不是紧挨着的

greenstare1234

附件我传一个