On Error GoTo test
       ActiveSheet.PivotTables("PivotTable1").PivotFields( _
       "Sum of %approval").LabelRange.Cells(1, 1).Delete

Exit Sub
test:
           With ActiveSheet.PivotTables("PivotTable1").PivotFields("%approval")
            .Orientation = xlDataField
            .Name = "Sum of %approval"
            .NumberFormat = "0.00%"
            .Position = 5
        End With

Private Function Numeric_By_Groups()
    
    Application.ScreenUpdating = False
    
    Dim r As Long, _
        LastRow As Long, _
        MemDate As Date, _
        Iterator As Long
    
    Iterator = 1
    
    Columns(8).Clear
    
    With ActiveSheet.UsedRange
        LastRow = .Rows.Count - .Row + 1
    End With
    
    For r = 2 To LastRow
        With Cells(r, 2)
            If Not .Value = .Offset(-1, 0).Value Then
                Iterator = 1
                MemDate = .Offset(0, 2).Value
                .Offset(0, 6).Value = Iterator
            End If
            
            If .Value = .Offset(1, 0).Value Then
                If DateDiff("h", MemDate, .Offset(0, 2).Value) < 24 Then
                    Iterator = Iterator + 1
                    .Offset(1, 6).Value = Iterator
                Else
                    Iterator = 1
                    MemDate = .Offset(1, 2).Value
                    .Offset(1, 6).Value = Iterator
                End If
            Else
                .Offset(1, 6).Value = Iterator
            End If
        End With
    Next r
    
End Function