I have a report that when unmerged looks like this:
User Name Branch Leads Other Leads Total Leads
Organisation
Agent x 0 0 0
Area 1
1 0 1
Area 2
1 0 1
Total
I am trying to produce an agent report for each area with user name, area
and the three figures. (delete the total row).
Any clues?

Sub findtotal()
With Worksheets("Sheet3").Range("A1:Z1000")
Set c = .Find("Total", LookIn:=xlValues)
If Not c Is Nothing Then
c.EntireRow.Delete
End If
End With

End Sub

"fishy" wrote:

I have a report that when unmerged looks like this:
User Name Branch Leads Other Leads Total Leads
Organisation
Agent x 0 0 0
Area 1
1 0 1
Area 2
1 0 1
Total
I am trying to produce an agent report for each area with user name, area
and the three figures. (delete the total row).
Any clues?