Need a little help please

[realitydrm]

I run the same reports everyday and would like to use a generic VBA code that selects all my data and creates the pivot table. I've recorded the MACRO:

- I need the data range selected automatically to be allow any data amount
- I need the data range to be selected automatically
- The sheet should not matter
- Finally I would like to name the sheet

Sheets.Add
    ActiveWorkbook.Worksheets("Sheet1").PivotTables("PivotTable26").PivotCache. _
        CreatePivotTable TableDestination:="Sheet4!R3C1", TableName:="PivotTable27" _
        , DefaultVersion:=xlPivotTableVersion15
    Sheets("Sheet4").Select
    Cells(3, 1).Select
    With ActiveSheet.PivotTables("PivotTable27").PivotFields("Date Opened")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("PivotTable27").PivotFields("Date Opened")
        .Orientation = xlColumnField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("PivotTable27").PivotFields("Queue")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("PivotTable27").PivotFields("Sub Queue")
        .Orientation = xlRowField
        .Position = 2
    End With
    With ActiveSheet.PivotTables("PivotTable27").PivotFields("Status")
        .Orientation = xlColumnField
        .Position = 1
    End With
    ActiveSheet.PivotTables("PivotTable27").AddDataField ActiveSheet.PivotTables( _
        "PivotTable27").PivotFields("Source"), "Count of Source", xlCount
    With ActiveSheet.PivotTables("PivotTable27").PivotFields("Queue")
        .PivotItems("(blank)").Visible = False
    End With
End Sub

[Paul_Hossler]

I added [CODE] ... [/CODE] tags around your code. You can use the [#] icon to do that

It makes the macro easier to read

Can you attach a sample workbook with the data and what you want the PT to look like?

[realitydrm]

Due to the sensitive nature of the data I cannot.

[Paul_Hossler]

Put in fake data so we can see the structure and formats at least