大神们求教一下，这个拆分表，最后一页不能拆分显示全，怎么调代码比较好

qwsss31

大神们求教一下，这个拆分表，最后一页不能拆分显示全，怎么调代码比较好。
不论多少页，拆分的最后一页总是缺少。

Sub AutoXXPage()
    Dim sht As Worksheet
    Dim shtT As Worksheet
    Set sht = Worksheets("Sheet1")
    Dim HP As HPageBreak
    Dim strSRow As Long, strERow As Long
    Dim n As Long
    strSRow = "1"
    For Each HP In sht.HPageBreaks
        strERow = CStr(HP.Location.Row - 1)
        n = n + 1
        Set shtT = ThisWorkbook.Worksheets.Add
        shtT.Name = "第" & CStr(n) & "页"
        sht.Range(strSRow & ":" & strERow).Copy
        shtT.Paste
        Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
                               SkipBlanks:=False, Transpose:=False
        strSRow = CStr(HP.Location.Row)
    Next
    n = n + 1
    Set shtT = ThisWorkbook.Worksheets.Add
    shtT.Name = "第" & CStr(n) & "页"
    sht.Range(strSRow & ":" & CStr(sht.Range("g65536").End(xlUp).Row)).Copy
    shtT.Paste
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
                           SkipBlanks:=False, Transpose:=False
    sht.Activate
    Set sht = Nothing
    Set shtT = Nothing
End Sub

smallhorse

VBA?