Pivot Table Macro Needed

You need to change this bit:

Sheets.Add.Cells(1, 3)

You can switch it to:

Sheets.Add.Range("A1")