sure....the format that im trying to get is to merge all the donations from one name to a single row (as u see now for every year that a donation is given it is recorded on another row)

If this is what you mean, then this is one way of doing it.

But I'd have thought a simple pivot table would have been far easier!

like that but the donations per year is important ...i already have a total list..is there a way to keep the single row per name with the different amounts donated over the different years?

Like this?

But again, a pivot table would probably be even easier.

Do you want something like this:

2006-2007 2007-2008 2008-2009 2009-2010 2010-2011 2011-2012
bob 1000 1000
jack 500 1000 500 500 600

???


Again my first question:
are you looking for a solution with formulas or with code?

Bruno

Bruno Campanini formulated the question :
Do you want something like this:

2006-2007 2007-2008 2008-2009 2009-2010 2010-2011
2011-2012 bob
1000 1000 jack 500 1000
500 500 600

???


Again my first question:
are you looking for a solution with formulas or with code?

Bruno

Sorry, contents unreadable!

bob 1000 1000
jack 500 1000 500 500 600

Bruno

Bruno Campanini laid this down on his screen :
Bruno Campanini formulated the question :

Again my first question:
are you looking for a solution with formulas or with code?

Bruno

In the mean time:
===================================
Public Sub NewLayout()
Dim SourceRange As Range, TargetRange As Range
Dim NameColl As New Collection, TargetArray()
Dim NumberOfYears As Integer, NumberOfRecords As Long
Dim S As Currency, SS As Currency, i, j, k

' Definition ------------------
Set SourceRange = [Sheet1!K16]
Set TargetRange = [Sheet1!K27]
NumberOfYears = 6
' -----------------------------

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Set SourceRange = SourceRange.Resize(SourceRange.End(xlDown) _
.Row - SourceRange.Row + 1)
NumberOfRecords = SourceRange.Rows.Count

For Each i In SourceRange
On Error Resume Next
NameColl.Add i, CStr(i)
On Error GoTo 0
Next
ReDim TargetArray(1 To NameColl.Count, 1 To NumberOfYears)

For i = 1 To NumberOfRecords
For k = 1 To NumberOfYears
For j = 1 To NameColl.Count
If SourceRange(i, 1) = NameColl(j) Then
TargetArray(j, k) = TargetArray(j, k) _
+ SourceRange(i, k + 1)
End If
Next: Next: Next

For j = 1 To NameColl.Count
TargetRange(j, 1) = NameColl(j)
For k = 1 To NumberOfYears
If j = 1 Then
TargetRange(0, k + 1) = SourceRange(0, k + 1)
TargetRange(0, 1) = SourceRange(0, 1)
TargetRange(0, NumberOfYears + 3) = "Totals"
End If
TargetRange(j, k + 1) = TargetArray(j, k)
S = S + TargetArray(j, k)
Next
TargetRange(j, NumberOfYears + 3) = S
SS = SS + S: S = 0
Next
TargetRange(NameColl.Count + 1, NumberOfYears + 3) = SS
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub
=========================================

Bruno