Hi,

I have some code that I got off of Ron DeBruin's site for  Creating a
new sheet for all unique values. It works great but it puts the header
at the top of each new sheet. Is there a way to modify this code to
make it so it does not add a header at the top of each new sheet? I'm
just looking to put the raw data on each new sheet. Any help is
appreciated.

Sub Copy_With_AdvancedFilter_To_Worksheets()
   Dim CalcMode As Long
   Dim ws1 As Worksheet
   Dim WSNew As Worksheet
   Dim rng As Range
   Dim cell As Range
   Dim Lrow As Long

   Set ws1 = Sheets("Sheet1")  '<<< Change
   'Tip : You can also use a Dynamic range name,
http://www.contextures.com/xlNames01.html#Dynamic
   'or a fixed range like Range("A1:H1200")
   Set rng = ws1.Range("A1").CurrentRegion  '<<< Change

   With Application
       CalcMode = .Calculation
       .Calculation = xlCalculationManual
       .ScreenUpdating = True
   End With

   With ws1
       rng.Columns(1).AdvancedFilter _
       Action:=xlFilterCopy, _
       CopyToRange:=.Range("IV1"), Unique:=True
       'This example filter on the first column in the range (change
this if needed)
       'You see that the last two columns of the worksheet are used to
make a Unique list
       'and add the CriteriaRange.(you can't use this macro if you use
the columns)

       Lrow = .Cells(Rows.Count, "IV").End(xlUp).Row
       .Range("IU1").Value = .Range("IV1").Value

       For Each cell In .Range("IV2:IV" & Lrow)
           .Range("IU2").Value = cell.Value
           Set WSNew = Sheets.Add
           On Error Resume Next
           WSNew.Name = cell.Value
           If Err.Number > 0 Then
               MsgBox "Change the name of : " & WSNew.Name & "
manually"
               Err.Clear
           End If
           On Error GoTo 0
           rng.AdvancedFilter Action:=xlFilterCopy, _
                              CriteriaRange:=.Range("IU1:IU2"), _
                              CopyToRange:=WSNew.Range("A1"), _
                              Unique:=False
           WSNew.Columns.AutoFit
       Next
       .Columns("IU:IV").Clear
   End With

   With Application
       .ScreenUpdating = True
       .Calculation = CalcMode
   End With
End Sub