Can't rerun Macro to create pivot table

Hi All, I am very new to using Macros & VBAs trying to streamline some of the processes at my company. I am trying to create a pivot summary first to then create separate files for each Account name. However I am running into an issue where it cannot run the Macro, and I've copied a solution from an online tutorial, but still haven't had luck. Any help would be appreciated. The spot that seems to be causing the error is pivotWS & "!R3C1"

Sheets.Add
pivotWS = ActiveSheet.Name

ActiveWorkbook.PivotCaches.Create(SourceType:=x1Database, SourceData:=
"Source!R4C1:R56288C51", Version=8).CreatePivotTable TableDestination:=_
pivotWS & "!R3C1", TableName:="PivotTable36", DefaultVersion:=8
Sheets(pivotWS).Select

I know this is probably a simple fix, but my programming knowledge is limited.

Appreciate any help that can be provided.