I have two columns of data column a is always the same coloum b get
filled out every week with numerical data for instance

data1 10
data2 9
data3 6
data4 4


at the end of the week i want to add the totals in column b to
another
sheet but every time add the current weeks data to that what has
already been done


i.e


running total


data1 23
data2 78
data3 56


anyone got any ideas this is stumping me

Johny

For i = 2 To Cells(Rows.Count,"A").End(xlUp).Row

FindRow=0
On Error Resume Next
FindRow = Application.Match(Cellws(i,"A").Value
On Error Goto 0
If FindRow = 0 Then

FindRow = Worksheets("Sheet2").Range("A1").End(xlDown).Row + 1
Worksheets(("Sheet2").Cells(FindRow,"A").Value = Cells(i,
"A").Value
End If
Worksheets(("Sheet2").Cells(FindRow,"B").Value = _
Worksheets(("Sheet2").Cells(FindRow,"B").Value + Cells(i,
"B").Value
Next i

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

<(E-Mail Removed)> wrote in message
news:1840a28b-20b1-4611-a96c-(E-Mail Removed)...
>I have two columns of data column a is always the same coloum b get
> filled out every week with numerical data for instance
>
> data1 10
> data2 9
> data3 6
> data4 4
>
>
> at the end of the week i want to add the totals in column b to
> another
> sheet but every time add the current weeks data to that what has
> already been done
>
>
> i.e
>
>
> running total
>
>
> data1 23
> data2 78
> data3 56
>
>
> anyone got any ideas this is stumping me
>
> Johny