help with Unmerged cells that need linking back - populate rows
 

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?

help with Unmerged cells that need linking back - populate rows
 

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?