Sub Макрос13()

Dim NN As Variant
    NN = InputBox("Enter the Name") ' тут у тебя переменная NN становится типа string
    Sheets("Лист2").Select
    Sheets.Add.Name = NN ' так нельзя писать
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Отчёт", Version:=xlPivotTableVersion14).CreatePivotTable TableDestination _
        :=NN, TableName:="СводТабл", DefaultVersion:= _
        xlPivotTableVersion14 ' Методы Create  и CreatePivotTable возвращают объекты. Имя - это свойство объекта.
    Sheets = NN.Select 'у типа string нету метода Select
    Cells(3, 1).Select
End Sub