how can i drag to get automatically value from this syantx, |VBA & Macros|Excel Forum|My Online Training Hub

Option Explicit Function angkut(seet As String, kotak As String) Dim rangesum As Variant Dim sum_range As Variant Dim cr_range1 As Range Dim cr_range2 As Range Dim cr_range3 As Range Dim cr_range4 As Range Dim kriteria1 As Variant Dim kriteria2 As Variant Dim kriteria3 As Variant Dim kriteria4 As Variant Dim kriteria5 As Variant Dim result As Variant Dim result2 As Variant Dim cel As Variant 'menetukan nilai masing - masing variable Set rangesum = ThisWorkbook.Sheets(seet).Range("N:N") Set cr_range1 = ThisWorkbook.Sheets(seet).Range("M:M") Set cr_range2 = ThisWorkbook.Sheets(seet).Range("U:U") Set cr_range3 = ThisWorkbook.Sheets(seet).Range("R:R") Set cr_range4 = ThisWorkbook.Sheets(seet).Range("L:L") kriteria1 = ThisWorkbook.Sheets("REKAP").Range(kotak) kriteria2 = "1" kriteria3 = "T" kriteria4 = "PNI" kriteria5 = "PNM" result = Application.WorksheetFunction.SumIfs(rangesum, cr_range1, kriteria1, cr_range2, _ kriteria2, cr_range3, kriteria3, cr_range4, kriteria4) result2 = Application.WorksheetFunction.SumIfs(rangesum, cr_range1, kriteria1, cr_range2, _ kriteria2, cr_range3, kriteria3, cr_range4, kriteria5) angkut = result + result2 End Function

i try to drag from cell F7 to down to get values but, i get same value from F7 cell. please help me fix my syntax