how to remove heading

[k00lfire]

i have very big sheet i am unable to use filter command due space inbetween the pages. u can say sheet is like this




Who Week What Amount

Beth 4 Food 17
Janet 5 Beer 14
Joe 3 Food 12
Joe 4 Beer 19
Janet 5 Car 12
Joe 3 Food 19
Beth 4 Beer 15
Janet 5 Beer 19
Joe 3 Car 20

Who Week What Amount
Joe 4 Beer 16
Beth 5 Food 12
Beth 3 Beer 16
Joe 4 Food 17
Joe 5 Beer 14
Janet 3 Car 19
Joe 4 Food 17

Who Week What Amount
Beth 5 Beer 20
Janet 3 Food 18
Joe 4 Beer 14
Joe 5 Food 12

Who Week What Amount
Janet 3 Beer 18
Janet 4 Car 17
Janet 5 Food 12

i want to use filter command and if there an easy way to remove heading and make only single heading

 

[Container]

There's probably a better way to do this but try:

In your example assume "Who" is always in column "A" you can search for this to delete the extra headings.

Sub Click()
Set CompareRange = Sheets("Sheet1").Range("A2:A10000")
For Each x In CompareRange
If x = "Who" Then x.EntireRow.Delete Shift:=xlUp
If x = "" Then x.EntireRow.Delete Shift:=xlUp
Next x
End Sub

 

[JackDanIce]

Apart from the header row, are all the other rows unique? If so, have a look at Excel's Advanced Filter under the Data menu/tab for unique values