Pivot ændre navn til celle

Hejsa,

Jeg har skrevet en VBA kode, der tæller data i en pivottabel istedet for at summere. Men i stedet for navnet på cellen (som er " Copen") ønsker jeg at det i stedet skal være cellen (f.eks E6), da navnet ændrer sig fra gang til gang. Hvordan gør jeg det. Koden ser således ud:

Range("E6").Select
    ActiveSheet.PivotTables("Pivottabel1").PivotFields( _
        " Copen").Function = xlCount
    Range("A1").Select