IDSP Excel Macro

MacroIDSP.bas

Sub MacroIDSP()
'
' MacroIDSP Macro
'

'
    On Error Resume Next
    Columns("C").SpecialCells(xlBlanks).EntireRow.Delete
    Range("E1:E200").Select
    Selection.NumberFormat = "0"
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Sheet1!R1C1:R127C5", Version:=6).CreatePivotTable TableDestination:= _
        "", TableName:="PivotTable1", DefaultVersion:=6
    ActiveWorkbook.ShowPivotTableFieldList = True
    ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
    With ActiveChart.PivotLayout.PivotTable.PivotFields("IDSP Code")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveChart.PivotLayout.PivotTable.PivotFields("User Name")
        .Orientation = xlRowField
        .Position = 2
    End With
    With ActiveChart.PivotLayout.PivotTable.PivotFields("EHR ID")
        .Orientation = xlRowField
        .Position = 3
    End With
    ActiveChart.PivotLayout.PivotTable.AddDataField ActiveChart.PivotLayout. _
        PivotTable.PivotFields("EHR ID"), "Count of EHR ID", xlCount
    
End Sub