[& Chronicle] 파트별 생산 합계 구하기

http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=275916203
위 그림과 같이 파트별 생산 합계를 구하는 질문입니다.
타트타임이 모두 채워져있다면 쉽게 해결될 문제입니다만 어쩐 이유에서인지 그렇게는 안 되나봅니다.

Chronicle님은 위와 같이 LookUp을 이용하여 풀어냈습니다. - http://blog.naver.com/asaph16/220997871985
이번 문제를 풀어낸 흐름은 맨 마지막에서 End(xlUp)로 위 데이터로 차례로 올라가며 파트별 생산합계를 구하는 방식입니다. 불규칙하게 반복되는 경우는 Do Loop문이 역시 편리합니다.

Sub Macro()
 
    Dim r As Integer
    
    '기존자료 삭제
    Range("E4").CurrentRegion.Columns(7).Offset(1).ClearContents
    
    '마지막 행번호
    r = Cells(Rows.Count, 5).End(3).Row
    
    '밑에서 위로 올라가면서 부분합 실행
    Do
    
        With Cells(r, 6).End(3)
            .Offset(, 4) = WorksheetFunction.Sum(Range(Cells(r, 6), .Cells).Offset(, 3))
            r = .Row - 1
        End With
        
    Loop While r > 5
    
End Sub