Ejecutar macro despues de dar ShowDetail a un rango de celdas

Tengo una tabla dinamica que contiene dos columnas A=Ciudad B=Cantidades. Quiero que al dar doble click a cualquiera de estas celdas (B4:B30) de despliegue normalmente el showdetail de la tabla, pero que a partir de ahi se ejecute el siguiente macro. que no es nada mas que quitar columnas innecesarias. espero me puedan ayudar

ub Macro5()
'
' Macro5 Macro
'

'
    ActiveCell.Offset(0, 50).Columns("A:F").EntireColumn.Select
    Selection.Delete Shift:=xlToLeft
    ActiveCell.Offset(0, -16).Columns("A:O").EntireColumn.Select
    Selection.Delete Shift:=xlToLeft
    ActiveCell.Offset(0, -6).Columns("A:E").EntireColumn.Select
    Selection.Delete Shift:=xlToLeft
    ActiveCell.Offset(0, -11).Columns("A:F").EntireColumn.Select
    Selection.Delete Shift:=xlToLeft
    ActiveCell.Offset(0, -9).Columns("A:H").EntireColumn.Select
    Selection.Delete Shift:=xlToLeft
    ActiveCell.Offset(0, -6).Columns("A:E").EntireColumn.Select
    Selection.Delete Shift:=xlToLeft
    ActiveCell.Offset(0, -2).Columns("A:A").EntireColumn.Select
    Selection.Delete Shift:=xlToLeft
    ActiveCell.Offset(0, 9).Columns("A:A").EntireColumn.Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveCell.Select
    ActiveCell.FormulaR1C1 = "GIRO CORRECTO"
    ActiveCell.Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 49407
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveCell.Columns("A:A").EntireColumn.Select
    Selection.ColumnWidth = 30
    ActiveCell.Offset(0, -1).Columns("A:A").EntireColumn.EntireColumn.AutoFit
End Sub