VBA для создания свода

I изменили некоторый код, который я нашел в Интернете, и который я пытаюсь использовать для создания сводной таблицы. Я использовал кодовое имя для одного рабочего листа, потому что оно будет использоваться в нескольких рабочих книгах, имя листа которых будет другим.

Когда я запускаю приведенный ниже код, он создает сводную таблицу, но только с областью в виде одинокого столбца.

Мне нужны фамилии для строк и коды счетов для остатков с итогом в конце каждой строки.

Пожалуйста, посмотрите код и помогите мне правильно заполнить строки.

Sub InsertPivotTable()


 'Declare Variables
  Dim PSheet As Worksheet
  Dim DSheet As Worksheet
  Dim PCache As PivotCache
  Dim PTable As PivotTable
  Dim PRange As Range
  Dim LastRow As Long
  Dim LastCol As Long

 'Insert a New Blank Worksheet
  On Error Resume Next
  Application.DisplayAlerts = False
  Worksheets("byAccount").Delete
  Sheets.Add After:=ActiveSheet
  ActiveSheet.Name = "byAccount"
  Application.DisplayAlerts = True
  Set PSheet = Worksheets("byAccount")
  Set DSheet = Worksheets(1)

 'Define Data Range
  LastRow = DSheet.Cells(Rows.Count, 4).End(xlUp).Row
  LastCol = DSheet.Cells(1, Columns.Count).End(xlToLeft).Column
  Set PRange = DSheet.Cells(4, 1).Resize(LastRow, LastCol)

 'Define Pivot Cache
  Set PCache = ActiveWorkbook.PivotCaches.Create _
  (SourceType:=xlDatabase, SourceData:=PRange). _
  CreatePivotTable(TableDestination:=PSheet.Cells(1, 1), _
  TableName: = "byAccountPivot")

'Insert Blank Pivot Table
 Set PTable = PCache.CreatePivotTable _
(TableDestination:=PSheet.Cells(1, 1), TableName: = "byAccountPivot")

 'Insert Row Fields
  With ActiveSheet.PivotTables("byAccountPivot").PivotFields("Surname")
 .Orientation = xlRowField
 .Position = 1
 End With

   With ActiveSheet.PivotTables("byAccountPivot").PivotFields("Account Code")
  .Orientation = xlRowField
  .Position = 2
  End With

  'Insert Column Fields
   With ActiveSheet.PivotTables("byAccountPivot").PivotFields("Amount")
  .Orientation = xlColumnField
  .Position = 1
  End With

 'Insert Data Field
 With ActiveSheet.PivotTables("byAccountPivot") 
 .PivotFields ("Amount")
 .Orientation = xlDataField
 .Function = xlSum
 .NumberFormat = "#,##0"
 .Name = "Amount"
 End With

'Format Pivot Table
 ActiveSheet.PivotTables("byAccountPivot").ShowTableStyleRowStripes = True
 ActiveSheet.PivotTables("byAccountPivot").TableStyle2 =      "PivotStyleMedium9"

 End Sub