生成一段VBA代码，排序A列B列后生成数据透视表

以下是根据您的要求生成的VBA代码：

Sub GeneratePivotTable()
    '定义变量
    Dim lastRow As Long
    Dim pivotRange As Range
    Dim pivotTable As PivotTable
    Dim pivotCache As PivotCache
    
    '获取最后一行
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    '定义数据范围
    Set pivotRange = Range("A1:B" & lastRow)
    
    '创建新的缓存
    Set pivotCache = ActiveWorkbook.PivotCaches.Create(xlDatabase, pivotRange)
    
    '创建新的数据透视表
    Set pivotTable = ActiveSheet.PivotTables.Add(PivotCache:=pivotCache, TableDestination:=Range("D1"), TableName:="PivotTable1")
    
    '添加行字段
    pivotTable.PivotFields("Column A").Orientation = xlRowField
    
    '添加列字段
    pivotTable.PivotFields("Column B").Orientation = xlColumnField
    
    '添加值字段
    pivotTable.AddDataField pivotTable.PivotFields("Column B"), "Sum of Column B", xlSum
    
End Sub

以上代码会根据您的需求，生成一个数据透视表，该表以A列为行字段，以B列为列字段，然后对B列进行求和。您可以根据需要修改字段名称和表格位置等参数。