suming two coloumns together (each cell separately) : Im using excel and ive just started using vba in excel.
I need to add the values of column I, cells I6:I26 in sheet 1 to column D, cells D1:D21 in sheet 2.
So if I6 = 4 and D1 = 6, and I press the ADD button, D6 will equal to 10. Same goes for the rest of the cells.
I don't want it cell I6 to replace the value of D6, I want it to add to it.
This is the code I have so far for it;

    Dim r1 as Range, v as variant
    Set r1 = Sheets("Sheet2"). Range("D1")
    V = Application.WorksheetFunction.Sum(Sheet1.Range("I6"), Sheet2.Range("D1"))
    R1 = v

I had to do that 20 times..is there anyway to simply this?