Dynamically use sheet names for pivot tables.

Hello,

I'm currently working on a macro that will loop through my sheets and create pivot tables for each sheet. I have the pivot macros down now I'm having trouble getting it to work across all sheets dynamically. The below code works for one sheet that I pre-defined.
How would I create the Pivot table so that it would be dynamic. I want the macro to create the source data based off the worksheet that it's pulling from. Also i want the destination sheet to be named the same as the source sheet, except to add pivot at the end. so sheet 1 would also have sheet 1 pivot that would contain the pivot table.
Basically how do I write the code so that the yellow sections are set to be dynamic and based off the sheet that it is creating the pivot table from?

If i have a loop

Sub macro()
Dim ws As Worksheet
For Each ws In Worksheets

Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
        ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "ALUGA!R1C1:R1048576C27", Version:=xlPivotTableVersion15).CreatePivotTable _
        TableDestination:="'ALUGA Pivot'!R1C1", TableName:="PivotTable1", _
        DefaultVersion:=xlPivotTableVersion15

Next ws

    End Sub

Since I don't have a workbook this is "air code." Assuming the rest of your code works, this should work. Also the code as you have it will try to create multiple PivotTable1. This might cause a problem. I took care of that with a counter. You may want to name the pivot table something more descriptive.

Sub macro()
Dim ws As Worksheet
Dim SheetName As String
Dim PTNumber As Long

PTNumber = 0

For Each ws In Worksheets
SheetName = ws.Name
PTNumber = PTNumber + 1
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
        ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "'" & SheetName & "!R1C1:R1048576C27", Version:=xlPivotTableVersion15).CreatePivotTable _
        TableDestination:="'" & SheetName & " Pivot'!R1C1", TableName:="PivotTable" & PTNumber, _
        DefaultVersion:=xlPivotTableVersion15

Next ws

End Sub

I found through Googling the below code and it works! Thanks for your help regardless.

Sub Macro1()

    Dim shtSrc As Worksheet, shtDest As Worksheet
    Dim pc As PivotCache

    Set shtSrc = ActiveSheet

    Set shtDest = shtSrc.Parent.Sheets.Add()
    shtDest.Name = shtSrc.Name & "-Pivot"

    Set pc = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
        SourceData:=shtSrc.Range("A1").CurrentRegion)
    pc.CreatePivotTable TableDestination:=shtDest.Range("A3"), _
        TableName:="PivotTable1"
End Sub