Revising A VBA Code

[fa2020]

Hi, everyone
I have a code for summarizing personnel work time while it's sensitive to 8 hours shift, means if the user types work time for a personnel in a specific date which their cumulative work time exceeds 8 hours, this code omits it and just write 8 hours for that personnel in that date. This code was wrote by my friend but I want to develop it to my real world problem in excel. In the last command, you see there is SumIfs object which refers to limited rows. I want to develop it to all rows in those determined columns. So, if I write my data till row 15233 (my real data in huge), there is no need to make any change in the code. I don't know how to make such a change in my code. I'm new to VBA. Please help me to learn.

[Logit]

.

Sub SummarizeData()Dim LR As Long, BR As Long


With ActiveSheet
    
    BR = .Range("G" & .Rows.Count).End(xlUp).Row
    If BR > 1 Then .Range("G1").CurrentRegion.ClearContents
    
    LR = .Range("A" & .Rows.Count).End(xlUp).Row
    .Range("A1:C" & LR).Copy .Range("G1")
    BR = .Range("G" & .Rows.Count).End(xlUp).Row
    
    .Range("G1:I" & BR).RemoveDuplicates Columns:=Array(1, 3), Header:=xlYes
    BR = .Range("G" & .Rows.Count).End(xlUp).Row
    
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=Range("G2:G" & BR), Order:=xlAscending
    .Sort.SortFields.Add Key:=Range("I2:I" & BR), Order:=xlAscending
    With .Sort
        .SetRange Range("G1:I" & BR)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    .Range("H2:H" & BR).FormulaR1C1 = "=MIN(8, SUMIFS(R2C2:R16C2, R2C1:R16C1,RC[-1], R2C3:R16C3,RC[1]))"
End With


End Sub