Condense pivot cell选择

Question

我只是想知道是否有办法将其压缩到最小代码？ 我正在使用lastrow作为我的最终工作表（我的代码生成完毕后使用数据透视表完成），lastrow2正在帮助获取数据透视表源数据的范围。我不确定是否甚至需要lastrow2？

Dim lastrow As Long
Dim lastrow2 As Long
    lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    lastrow2 = Cells(Rows.Count, "M").End(xlUp).Row
    Range("1:1").Delete 'Report title
    'Adding pivot table
        Range("A1").CurrentRegion.Select
        Sheets.Add.Name = "Pivot"
        ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase,     SourceData:= _
            "FNDWRR!A1:M" & lastrow2,     Version:=xlPivotTableVersion15).CreatePivotTable _
            TableDestination:="Pivot!R3C1", TableName:="StatPivot"