title: Autorun a module
body: <p>I have this module running in one of my files. It works well and it does what it needs to. However, It's a pain to run it mannually every time that I need it to happen. Is there any way to have it run automatically every time a pivot table is refreshed or everytime the sheet changes? </p>
  
  <pre><code>Sub CopyValuesAndNumberFormats()
  'Update 20130815
  Dim CopyRng As Range, PasteRng As Range
  xTitleId = "HeatMapUpdateSP"
  Set CopyRng = Application.Selection
  Set CopyRng = Range("D2:G4")
  Set PasteRng = Range("D11:G13")
  CopyRng.Copy
  PasteRng.Parent.Activate
  PasteRng.PasteSpecial xlPasteValuesAndNumberFormats
  PasteRng.PasteSpecial xlPasteFormats
  Application.CutCopyMode = False
  
  End Sub
  </code></pre>