Error en tabla dinámica

HOLA BUEN DIA

ESTOY APRENDIENDO A CREAR UNA TABLA DINÁMICA POR UN TUTO QUE ENCONTRÉ PERO ME GENERA ESTE ERROR :

Set PTCache = ActiveWorkbook.PivotCaches.Create(xlDatabase, Cells(1, 1).CurrentRegion)

ESTE ES MI MODO DE PLANTEARLO:

Sub Create_PivotTable()
Dim PT As PivotTable
Dim PTCache As PivotTable
Worksheets("BASE NOTAS").Select
Set PTCache = ActiveWorkbook.PivotCaches.Create(xlDatabase, Cells(1, 1).CurrentRegion)
Set PT = ActiveSheet.PivotTables.Add(PivotCache, TABLEDESTINATION:=Cells("Z1"))
With PT
.PivotFields("CURSO").Orientation = xlRowField
.PivotFields("MATERIA").Orientation = xlRowField
.PivotFields("ALUMNO").Orientation = xlRowField
.PivotFields("PORCENTAJE").Orientation = xlDataField
.DisplayFieldCaptions = False
End With
End Sub

agradesco tu ayuda y si conoces una manera de poder condicionar PivotFields("CURSO") a un combo box algo como PivotFields("Userfor1.Value")

gracias