Thanks for the example, made it easy.

This is all the code you need.

Sub Test()
Dim cRows As Long

cRows = Cells(Rows.Count, "A").End(xlUp).Row - 1
Range("J2").Formula = "=SUMIF(A:A,A2,H:H)"
Range("J2").AutoFill Range("J2").Resize(cRows)

End Sub

If you add it to Personal.xls and add a button to a toolbar and assign it to
that button, it is always available.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Fudge" <FudgieM@gmail.com> wrote in message
news:1144659115.738049.283530@i39g2000cwa.googlegroups.com...
> I've attached sample data from the worksheet for you to look at
>
> Staff Reference Surname First Name PT Work Log Start Date PT Work Log
> End Date Pay Grade Code Cost Centre Reference Duration Hourly Rate
> 1000872 Marks Janet 28/03/2006 28/03/2006 HP S000 02:00 23.56
> 1000872 Marks Janet 21/03/2006 21/03/2006 HP S000 02:00 23.56
> 1000872 Marks Janet 14/03/2006 14/03/2006 HP S000 02:00 23.56
> 1000872 Marks Janet 07/03/2006 07/03/2006 HP S000 02:00 23.56
> 1000872 Marks Janet 28/02/2006 28/02/2006 HP S000 02:00 23.56
> 1000872 Marks Janet 21/02/2006 21/02/2006 HP S000 02:00 23.56
> 1000647 Manning Clare 27/03/2006 27/03/2006 HP B300 00:30 23.56
> 1000647 Manning Clare 20/03/2006 20/03/2006 HP B300 00:30 23.56
> 1000647 Manning Clare 13/03/2006 13/03/2006 HP B300 00:30 23.56
> 1000647 Manning Clare 06/03/2006 06/03/2006 HP B300 00:30 23.56
> 1000647 Manning Clare 27/02/2006 27/02/2006 HP B300 00:30 23.56
> 1000647 Manning Clare 20/02/2006 20/02/2006 HP B300 00:30 23.56
> 1000463 Burton Lisa 31/03/2006 31/03/2006 HP B650 01:30 23.56
> 1000463 Burton Lisa 24/03/2006 24/03/2006 HP B650 01:30 23.56
> 1000463 Burton Lisa 17/03/2006 17/03/2006 HP B650 01:30 23.56
> 1000463 Burton Lisa 10/03/2006 10/03/2006 HP B650 01:30 23.56
> 1000463 Burton Lisa 03/03/2006 03/03/2006 HP B650 01:30 23.56
> 1000463 Burton Lisa 24/02/2006 24/02/2006 HP B650 01:30 23.56
> 1000315 Gunter Norman 06/03/2006 06/03/2006 HP T300 02:00 23.56
>