Error 400

I'm trying to create a pivot table from a static piece of data and when I've tried to run it get an message box that pops up that says '400'.

The code is as follows:

Option Explicit

Dim strActive As String
Dim rngSource As Range
Dim rngDestination As Range
Dim pvtTable As PivotTable
Dim strPivot1 As String



Sub CreateSheet()

Sheets.Add Before:=Sheets(Sheets.Count)

Call DeleteSheet

ActiveSheet.Name = strPivot1

End Sub

Sub PivotActive()


Set rngDestination = Sheets(strPivot1).Range("A1")
Set rngSource = Sheets(strActive).Range("A1").CurrentRegion

ActiveSheet.PivotTableWizard SourceType:=xlDatabase, _
SourceData:=rngSource, tabledestination:=rngDestination, tablename:="TestPivot"

Application.CommandBars("PivotTable").Visible = False
ActiveWorkbook.ShowPivotTableFieldList = False

Set pvtTable = Sheets(strPivot1).PivotTables("TestPivot")

With pvtTable

.PivotFields("Consol.Category").Orientation = xlPageField
.PivotFields("Account Description").Orientation = xlRowField
.PivotFields("TC Description").Orientation = xlColumnField
.PivotFields("1011 Budget C").Orientation = xlDataField
.PivotFields("Sum of 1011 Budget C").Function = xlSum

End With

pvtTable.DataBodyRange.Select
Selection.NumberFormat = "[$£]#,##0"

Range("A1").Select

End Sub

Sub DeleteSheet()

Dim wsSheet As Worksheet

Application.DisplayAlerts = False

For Each wsSheet In ActiveWorkbook.Worksheets

If wsSheet.Name = strActive Then

wsSheet.Delete
Exit For

End If

Next wsSheet

Application.DisplayAlerts = True

End Sub

Sub MainPivotRpt1()

Call CreateSheet
Call PivotActive

End Sub