Problem creating pivot table

[Steve48]

I recorded macro shown below. But when I run it I get error on 1st line: invalid procedure call or argument.

Sub pivot()
'
' pivot Macro
'
'
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Concatenate-2!R2C21:R7125C26", Version:=xlPivotTableVersion12). _
        CreatePivotTable TableDestination:="Pivot-2!R1C1", TableName:="PivotTable1" _
        , DefaultVersion:=xlPivotTableVersion12
    Sheets("Pivot-2").Select
    Cells(1, 1).Select
    Range("A18").Select
    With ActiveSheet.PivotTables("PivotTable1").PivotFields( _
        "Concatenate Campaign & Ad Group")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("PivotTable6").AddDataField ActiveSheet.PivotTables( _
        "PivotTable1").PivotFields("Clicks"), "Sum of Clicks", xlSum
    ActiveSheet.PivotTables("PivotTable6").AddDataField ActiveSheet.PivotTables( _
        "PivotTable1").PivotFields("Impressions"), "Sum of Impressions", xlSum
    ActiveSheet.PivotTables("PivotTable6").AddDataField ActiveSheet.PivotTables( _
        "PivotTable1").PivotFields("Cost"), "Sum of Cost", xlSum
    ActiveSheet.PivotTables("PivotTable6").AddDataField ActiveSheet.PivotTables( _
        "PivotTable1").PivotFields("Avg. position"), "Sum of Avg. position", xlSum
    ActiveSheet.PivotTables("PivotTable6").AddDataField ActiveSheet.PivotTables( _
        "PivotTable1").PivotFields("Cost / conv. (1-per-click)"), _
        "Sum of Cost / conv. (1-per-click)", xlSum
End Sub