consulta con macro

Buenos dias (tardes) grupo.
Tengo una duda, tengo la siguiente macro, en la cual quiero que cambie
"1140-001-001-000" , por el numero de cuenta que aparezca en determinada
celda.
yo genero un libro que se llama consulta y de ahi hago una copia a otro
libro que es el que contiene la macro para ejecutarse. y como son distintas
cuentas las que genero todas ellas se van al libro que se llama
consulta.xls. por lo que ejecuto la macro para despues el resultado copiarlo
a otro libro.
(el "1140-001-001-000" viene siempre de la celda B5) dicha celda siempre va
cambiar de nombre de cuenta por lo que ocupo que tambien al ejecutar la
macro me haga el copiado hacia abajo, asi como esta escrito en la macro...
espero haberme explicado, es la primera vez que hago una macro..

Saludos!



Sub epol()
'
' epol Macro
' Macro grabada el 26/02/2007 por xxxxx
'
Windows("consulta.xls").Activate
Cells.Select
Selection.Copy
Windows("Macroepol2007_ctrl_f.xls").Activate
ActiveSheet.Paste
Range("C7").Select
Application.CutCopyMode = False
Selection.EntireColumn.Insert
Columns("F:I").Select
Selection.NumberFormat = "#,##0.00"
Columns("H:H").Select
Selection.ClearContents
Range("H1").Select
ActiveCell.FormulaR1C1 = "todas"
Range("I1").Select
ActiveCell.FormulaR1C1 = "cotejo"
Range("B5").Select
ActiveCell.FormulaR1C1 = "1140-001-001-000"
Range("B5").Select
Selection.Copy
Range("C7:C13").Select