Sumifs Excel VBA

Question

Когда я запускаю следующий код, ответ появляется на листе 2 от D3 до F3 так, как он написан. Но я хотел бы генерировать значение sumifs каждый раз для следующих пустых строк ... как от D4 до F4, а затем от D5 доF5 и так

Sub TestSumifs()    
    Dim WS1 As Worksheet        
    Dim WS2 As Worksheet        
    Dim sumRange As Range        
    Dim criteriaRange As Range        
    Dim criteria1 As Range        
    Dim criteria2 As Range        
    Dim criteria3 As Range        
    Dim D_P_P As Range        
    Dim E_M_P As Range        
    Dim A_C_P As Range

    Set WS1 = Worksheets("Sheet1")        
    Set WS2 = Worksheets("Sheet2")        
    Set sumRange = Sheet1.Range("D2:D13")        
    Set criteriaRange = Sheet1.Range("E2:E13")        
    Set criteria1 = Sheet2.Range("D2")        
    Set criteria2 = Sheet2.Range("E2")        
    Set criteria3 = Sheet2.Range("F2")        
    Set D_P_P = Sheet2.Range("D3")        
    Set E_M_P = Sheet2.Range("E3")        
    Set A_C_P = Sheet2.Range("F3")

    'Figure out which row is the next row        
    Nextrow = WS2.Cells(Rows.Count, 1).End(xlUp).Row + 1        
    D_P_P = Application.WorksheetFunction.SumIfs(sumRange, criteriaRange, criteria1)        
    E_M_P = Application.WorksheetFunction.SumIfs(sumRange, criteriaRange, criteria2)        
    A_C_P = Application.WorksheetFunction.SumIfs(sumRange, criteriaRange, criteria3)        
End Sub