How do I copy and paste figures but add and replace current figures

[ghrek]

Hi

I have a workbook that has 2 sheets the same but with different named tabs. One's called INPUT and the other SUMMARY.

What im trying to do is get a macro that when I click on button it copies the data from cells C7-C35 in the sheet called input and add it to the totals that are already in the same cells on the sheet called summary and paste the new values.

Also need this done on cells G7-G32 from Input to SUMMARY.

What I mean is lets say for instance cell G7 has a value of £1 in the sheet called summary and in sheet called Input it has a value of £10 . I click on the macro button and it transfers and makes the value in sheet called summary £11.

Hope that makes sense and is it possible.

 

[GWteB]

How about the code below. Note the separate procedure.

Public Sub ghrek()

    Dim SrceRng As Range, DestRng As Range

    Set SrceRng = ThisWorkbook.Worksheets("Input").Range("C7:C35")
    Set DestRng = ThisWorkbook.Worksheets("Summary").Range("C7:C35")
    AddSomeCells SrceRng, DestRng

    Set SrceRng = ThisWorkbook.Worksheets("Input").Range("G7:G32")
    Set DestRng = ThisWorkbook.Worksheets("Summary").Range("G7:G32")
    AddSomeCells SrceRng, DestRng
End Sub

Public Sub AddSomeCells(ByVal argSrc As Range, ByVal argDest As Range)
    Dim ArrIn As Variant, ArrOut As Variant, i As Long
    ArrIn = argSrc.Value
    ArrOut = argDest.Value
    For i = LBound(ArrIn, 1) To UBound(ArrIn, 1)
        ArrOut(i, 1) = ArrOut(i, 1) + ArrIn(i, 1)
    Next i
    argDest.Value = ArrOut
End Sub