Need Individual Sheet Data to Copy to Main Sh

I've made a Macro that will go to the "directory" sheet, add a row, then copy the appropriate cells. However, I don't know how to make that Macro work on the sheet I want it to work on. Example: I made the macro using a client sheet called "Allstate" so whenever I run the Macro it does the same "Allstate" sheet instead of the next sheet I created.

post your macro

Sub ToDirectory()
'
' ToDirectory Macro
'
' Keyboard Shortcut: Ctrl+d
'
Sheets("Directory").Select
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Select
ActiveCell.FormulaR1C1 = "='Allstate RF'!R[-1]C[2]"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "='Allstate RF'!RC[1]"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "='Allstate RF'!RC[6]"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "='Allstate RF'!R[2]C[5]"
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

I not following what you are attempting to do here. you seem to be saying that insert row and then do a look up from allstate sheet.
I think you are trying to do is, duplicate some sheet, then from that new sheet copy some information into your directory sheet. If that is true, then perhaps what u need to do is refresh dir sheet by looping thru sheets or at least looping and inserting if a new sheet is found

Not sure I understand your response, maybe I'm going about it the completly wrong way. I recorded a short video demonstrating what I want to happen. http://romestrinity.com/wp-content/uploads/2011/06/add_to_directory.mp4