copy, paste special, resize & offset

[jdcar]

Hello everyone
Why, when I copy and paste in Excel VBA (copy, paste special, resize & offset), in this case in a table, the first column (where the posting order number is recorded), the table does not fill the respective line numeric?

What needs to be done to resolve this issue? Thank you very much

Code used in module below

Sub CopyPast_Test()       

''to Delete
    Sheets("sheet1").Range("B1:p2000").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("sheet5").Range("T5:T6"), CopyToRange:=Sheets("sheet5").Range("aq1:Aw1"), Unique:=False

    Dim CurrentRegion As Range
        Sheet19.Range("aq2").CurrentRegion.Offset(1,      0).Resize(Sheet19.Range("aq2").CurrentRegion.Rows.Count - 1).Copy
        Sheets("sheet12").Range("c361").PasteSpecial xlPasteValuesAndNumberFormats
        Application.CutCopyMode = False

        Sheet11.Range("a1").Select
End Sub

Sub TrimPed_GrPED()
Dim ws As Worksheet
Dim LastRow As Long
    Set ws = ThisWorkbook.Sheets("sheet1")
    LastRow = ws.ListObjects("sheet12").DataBodyRange.Rows.Count
    ws.ListObjects("sheet12").ListRows(LastRow).Delete
End Sub