Sub gen()

Dim wb_1 As Workbook
Dim wb_templ As Workbook
Dim ws_pivot As Worksheet
Dim ws_files As Worksheet
Dim ws_pasted As Worksheet

Dim r, k As Integer
Dim name As String
Dim list() As Variant

Set wb_1 = ActiveWorkbook
Set ws_pivot = wb_1.Worksheets("Pivot")
Set ws_files = wb_1.Worksheets("Sheet1")

Application.DisplayAlerts = False
Application.AskToUpdateLinks = False
Application.ScreenUpdating = False

With ws_files
For r = 1 To .UsedRange.Rows.Count
    With .Range("A1")
        If name = "" Then
            GoTo Start
        ElseIf .Offset(r, 0).Value <> name Then
            ws_pivot.PivotTables("PivotTable1").PivotFields( _
            "[DATA].[NUMBER].[NUMBER]" _
            ).VisibleItemsList = list 'This is where I get the error

            Set wb_templ = Workbooks.Open("C:Users…template.xlsx")
            Set ws_pasted= wb_templ.Worksheets("Data")
            wb_templ.SaveAs ("C:Users....Final " & name)

            ws_pivot.Range("A8:P" & ws_pivot.UsedRange.Rows.Count).Copy
            ws_pasted.Range("A2").PasteSpecial

            wb_templ.RefreshAll
            wb_templ.Save
            wb_templ.Close

Start:
            name = .Offset(r, 0).Value
            ReDim list(.Offset(r, 11).Value)
            k = 1
            list(k) = "[DATA].[NUMBER].&[" & .Offset(r, 2).Value & "]"
            k = k + 1
        Else:
            list(k) = "[DATA].[NUMBER].&[" & .Offset(r, 2).Value & "]"
            k = k + 1
        End If
    End With
Next r
End With

Application.DisplayAlerts = True
Application.AskToUpdateLinks = True
Application.ScreenUpdating = True

End Sub