Run Macro when Slicer Changes

Hello,
Thank you for teaching me what I know. Ha...It's not much but I've read threads and went through http://www.homeandlearn.org/. I am brand new and hooked.

I was able to create a very simple code and have to push a Macro button to run it. Instead, I would like to have it automatically run when I make a different selection on a Slicer.

Here is my code:


-----
Private Sub Worksheet_PivotTableUpdate()

Dim TotalLines As Integer
TotalLines = Worksheets("Sheet1").Range("E:E").Cells.SpecialCells(xlCellTypeConstants).Count - 1
Dim NextLine As Integer
NextLine = 8

Range("F8:F1048576").Value = "" 'Clear Old Values
If TotalLines > 0 Then 'End If Nothing Returned
For X = 1 To TotalLines
Range("F" & NextLine).Value = Range("E" & NextLine) / Range("D" & NextLine)
NextLine = NextLine + 1
Next X
End If

End Sub
-----

Of course any programming tips for what I've made would be GREAT! But what I really want is to have this run automatically. Instead, I get an error that says "Compile error: Procedure declaration does not match description of event or procedure having the same name".

Thank You! Yes, it does run but I get the error.

So... Because the Slicer only changes one field of my pivot table, the PivotTableUpdate goes into a loop? Then your code needs to be run before the Slicer is changed? How do I do that?

The Pivot Table is linked to a Data Warehouse so uploading it won't work unless you had access to the warehouse. Instead, I took a screenshot and created a JPEG. It's only 108KB but when I try to attach it here, I get the spinning "working" symbol but it won't actually upload. Might be a security setting on my PC that I need to change. Can I email it to you? My email is [email protected].

Also, I've modified the Data Clearing portion of my code...does this work better?

'Remove Old Data
Range("F:F").Value = ""
Range("F7").Value = "Average Purchase Price"