在VBA中創建數據透視表，你需要使用Excel對象模型。以下是一個簡單的步驟和示例代碼，演示如何在VBA中創建一個數據透視表。

步驟：

1. 打開Excel，然后打開或創建一個包含數據的Excel工作簿。

2. 按下 `Alt + F11` 打開VBA編輯器。

3. 在VBA編輯器中，插入一個新的模塊（在菜單欄選擇 `插入` > `模塊`）。

4. 在模塊窗口中粘貼以下代碼。

示例代碼：

```vba

Sub CreatePivotTable()

' 定義工作簿和工作表對象

Dim wb As Workbook

Dim ws As Worksheet

Dim pt As PivotTable

Dim ptRange As Range

' 設置工作簿和工作表

Set wb = ThisWorkbook

Set ws = wb.Sheets("Sheet1") ' 假設數據在Sheet1上

' 定義數據透視表位置和范圍

Set ptRange = ws.Range("A1:D10") ' 假設數據范圍從A1到D10

' 在Sheet2上創建數據透視表

Set ws = wb.Sheets("Sheet2")

' 創建數據透視表

Set pt = ws.PivotTables.Add(TableRange:=ptRange, _

Destination:=ws.Range("B1"))

' 設置數據透視表字段

With pt

.Fields("列標題").Position = 1 ' 將列標題放在第一列

.Fields("行標題").Position = 2 ' 將行標題放在第二列

.Fields("值字段").Position = 3 ' 將值字段放在第三列

End With

End Sub

```

說明：

在上述代碼中，你需要將 `Sheet1` 和 `Sheet2` 替換為你的實際工作表名稱。

`A1:D10` 是數據透視表的數據范圍，你需要根據實際情況修改。

`列標題`、`行標題` 和 `值字段` 是數據透視表中的字段名稱，你需要根據你的數據源進行修改。

運行：

保存并關閉VBA編輯器。

運行 `CreatePivotTable` 子程序（你可以通過 `Alt + F8` 選擇并運行它）。

這樣，你就在VBA中創建了一個數據透視表。根據需要，你可以進一步自定義數據透視表，例如添加篩選器、更改布局等。