Beautifying Pivot Table Macro Code

[Airgaf]

Hi,

My code works perfectly fine, but I was wondering if there was a way to make it prettier.

I like clean looking code. This code is pretty bulky

'Add the Dynamic Range
        ActiveWorkbook.Names.Add Name:="DynamicRange", RefersToR1C1:= _
            "=OFFSET(Sheet1!R1C1,0,0,COUNTA(Sheet1!C1),12)"

    'Make Labor Summary Pivot Table
        ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
            "DynamicRange").CreatePivotTable TableDestination:="", TableName:= _
            "Laborsum", DefaultVersion:=xlPivotTableVersion10
        ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
        ActiveSheet.Cells(3, 1).Select
        With ActiveSheet.PivotTables("Laborsum").PivotFields("Order")
            .Orientation = xlRowField
            .Position = 1
        End With
        With ActiveSheet.PivotTables("Laborsum").PivotFields("Cost Elem.")
            .Orientation = xlRowField
            .Position = 2
        End With
        With ActiveSheet.PivotTables("Laborsum").PivotFields("Cost element name")
            .Orientation = xlRowField
            .Position = 3
        End With
        Range("B6").Select
        Selection.Delete
        ActiveSheet.PivotTables("Laborsum").AddDataField ActiveSheet.PivotTables( _
            "Laborsum").PivotFields("ValCOArCur"), "Sum of ValCOArCur", xlSum
        
    ' Add Non-Labor Summary Pivot Table
        Sheets("Sheet1").Select
        ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
            "DynamicRange").CreatePivotTable TableDestination:="", TableName:= _
            "Nonlabor", DefaultVersion:=xlPivotTableVersion10
        ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
        ActiveSheet.Cells(3, 1).Select
        With ActiveSheet.PivotTables("Nonlabor").PivotFields("Order")
            .Orientation = xlRowField
            .Position = 1
        End With
        With ActiveSheet.PivotTables("Nonlabor").PivotFields("Cost Elem.")
            .Orientation = xlRowField
            .Position = 2
        End With
        With ActiveSheet.PivotTables("Nonlabor").PivotFields("Cost element name")
            .Orientation = xlRowField
            .Position = 3
        End With
        ActiveSheet.PivotTables("Nonlabor").AddDataField ActiveSheet.PivotTables( _
            "Nonlabor").PivotFields("ValCOArCur"), "Sum of ValCOArCur", xlSum
        With ActiveSheet.PivotTables("Nonlabor").PivotFields("AuxAcctAs1")
            .Orientation = xlColumnField
            .Position = 1
        End With
        Range("C6").Select
        Selection.Delete