Hi Guys,

I ahve a spreadhseet whith a list of name sand dates.

The names are all stored in column I. Names are repeated several times.

I am trying to make a macro which will extract all rows which have the same name and paste them into a new workbook.

So far I have the following code but can't figure out the "Copy rows with same value in column I" part.


Auto Gap Report

Option Explicit

Sub SaveContactWBs()
Dim fPATH As String, ContactRNG As Range, c As Long

fPATH = "c:\targetfolder\"            
fPATH = "c:\targetfolder"            

Set ContactRNG = Range("I:I")

For c = 1 To ContactRNG.Areas.Count
    Sheets.Add

‘****Cant figure out the code to go here which copies all rows with the same value in column I and pastes them into the new sheet****

    ActiveSheet.Move
    ActiveWorkbook.SaveAs fPATH & Range("I1").Value & ".xls", xlNormal
    ActiveWorkbook.Close False
Next c

End Sub
If any of you Excel gurus can help with the missing code then i will be eternally thankful!

Thanks!

F