Excel - Copy//paste multiple

Hola a todos, después de la ayuda de algunos de vosotros he conseguido realizar el código que necesitaba, pero me surge un problema no se como realiza un copia diferenciada. Para explicarme mejor aquí esta parte del código:

`Tiene que copiar
ActiveWorkbook.Sheets("PROM (BE Alfabét)").Range("b" + TextBox1.Value).Copy
ActiveWorkbook.Sheets("PROM (BE Alfabét)").Range("c" + TextBox1.Value).Copy

Workbooks.Add Template:= _
"C:Documents and Settings992536EscritorioPruebasContratosPlantilla.xls"

ActiveWorkbook.Sheets("Ficha Revisión").Range("c4").Select
ActiveSheet.Paste
ActiveWorkbook.Sheets("Ficha Revisión").Range("j4").Select
ActiveSheet.Paste


Lo que quiero es que la primera copy se pegue en c4 y la segunda copy se pegue en j4

Un saludo

Sería más facil almacenar los datos en variables y luego pasarlos al otro libro, te daré un ejemplo:

Dim Dato1,Dato2 as String
'Selecciono la primera celda
ActiveWorkbook.Sheets("PROM (BE Alfabét)").Range("b" + TextBox1.Value).Select
'y le asigno el contenido de ella a la variable Dato1
Dato1 = ActiveCell.Value
'Selecciono la segunda celda
ActiveWorkbook.Sheets("PROM (BE Alfabét)").Range("c" + TextBox1.Value).Select
'Y le asigno el contenido de ella a Dato2
Dato2 = ActiveCell.Value

'Abro la plantilla
Workbooks.Add Template:= _
"C:Documents and Settings992536EscritorioPruebasContratosPlantilla.xls"

'Y por último le paso los datos al nuevo libro
ActiveWorkbook.ActiveSheet.Range("C1").Value=Dato1
ActiveWorkbook.ActiveSheet.Range("j4").Value=Dato2

Espero te sirva.

Saludos.