Añadir un parametro.

hola, 'anonimo/a' !

'fuera' de que quieres que la macro 'ponga' el contenido de 'A1' en alguna celda donde NO se hacen 'movimientos' [como 'A2']...
prueba con el siguiente cambio:

Sub Inserta()
Dim Celda As Range
For Each Celda In Range("b:b")
If Celda = "" Then Exit Sub
If Celda > Celda.Row Then
Celda.EntireRow.Insert
Celda.Offset(, -1) = [a1]
End If
Next
End Sub

saludos,
hector.

__ la consulta original __

No ha funcionado, me ha pasado lo mismo que las otras veces, crea un bucle infinito de insercion.
La copia lo hace a lo largo de la columna B... quiero que lo copie en A... en la celda que contiene el numero.
... ejemplo.
A B
1 Hola 1
2 2
3 4
4 6
Cuando se ejecuta la macro deberia quedar asi.
A B
1 Hola 1
2 Hola 2
3
4 Hola 4
5
6 Hola 6

Ha funcionado a medias, y he hecho la siguiente correccion.

Sub Inserta()
Dim Celda As Range
For Each Celda In Range("b:b")
If Celda = "" Then Exit Sub
Celda.Offset(, -1) = [a1] 'ahi he situado esa variable'
If Celda > Celda.Row Then
Celda.EntireRow.Insert
End If
Next
End Sub

Muchas gracias Héctor.
Espero a la proxima encontrar un manual completo.

hola, ?

Ha funcionado a medias, y he hecho la siguiente correccion.
Sub Inserta()
Dim Celda As Range
For Each Celda In Range("b:b")
If Celda = "" Then Exit Sub
Celda.Offset(, -1) = [a1] 'ahi he situado esa variable'
If Celda > Celda.Row Then
Celda.EntireRow.Insert
End If
Next
End Sub
Espero a la proxima encontrar un manual completo.

no se que tan... [lo que se dice] 'completo' exista [o no] un manual de algo -?-
en cuanto a alguna 'recomendacion' por material de aprendizaje [generalmente 'mi' respuesta es la que te 'apunto' al final]...

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

-> me gustaria decirte que leyendo 'tales o cuales' libros ... [pero, estaria siendo 'excluyente'] ;)
todo material de estudio [manuales, {F1}, libros, revistas, cursos, web's, estos foros, etc.] ->es excel...ente<-
mas bien [creo yo que], cada quien 'avanza al ritmo que puede/quiere/necesita' ;)
ademas considera que [en muchas de las ocasiones]
-> 'buscando una cosa'... 'encuentras otra' [que se te habia 'perdido']
-> o ['te topas' con] 'la hermana que se escapo de su prision' [sor-presa... NO esta !!!] :))

-> cuando 'se atora la carreta' [que nos sucede a todos] :-(
NO es 'imprescindible' saberlo todo ;) es suficiente con saber...
el telefono del que sabe... o el e-mail... o la web... o... por que no consultas en el foro? :D

aunque [supongo que de algun modo] no 'escaparas' de consultar al asistente {F1} de excel/vba...
encontraras [algunos] manuales/instructivos/cursos/etc. en las siguientes direcciones:
[aunque... 'calificarlo/s' de sencillos o complicados... dependera de factores 'personales'] :D

una lista de manuales y tutoriales [ingles]
http://www.virtualhelpdeskcentral.c...asp?SiteID&NoGUI=&CategoryID
algunas paginas en ingles...
Charles Williams (DecisionModels): http://www.decisionmodels.com/
Tushar Mehta: http://www.tushar-mehta.com/excel/
Laurent Longre: http://xcell05.free.fr/
Rob Bovey: http://www.appspro.com/Tips/Tips_And_Tricks.htm
Stephen Bullen' Excel MVP's page: http://www.bmsltd.ie/MVP/Default.htm
Jurgen Volkerink (KeepItCool): http://members.chello.nl/keepitcool/addins.html
Matt Evans: http://www.exinfm.com/free_spreadsheets.html
Karl Peterson: http://vb.mvps.org/samples/
Bob Umlas: http://www.emailoffice.com/excel/ar...umlas.html
Carlo Quintero: http://www.mztools.com/
Van Gelder: http://homepages.paradise.net.nz/~robree/excel/
MiStupid (Training Online): http://mistupid.com/tutorials/excel/
ExtremeVBTalk(newsgroup): http://www.visualbasicforum.com/

algunas paginas en castellano...
http://www.franciscopascual.com/Arc...202002.zip
http://www.javeriana.edu.co/decisio...icios.html
http://www.javeriana.edu.co/cursad/...iento.html
http://members.fortunecity.es/tonelorc/eexcel.html
http://www.aulaclic.es/excel2000/f_excel2000.htm
http://64.226.188.26/sivnetwork-www/cursos_gratis/excel/Excel.htm
http://www.territoriopc.com/excel/
http://interinfo.iespana.es/interin...les_ig.htm
http://www.fullwebs.com.uy/endondee.../excel.pdf
http://office.arnulfoperez.com/excel/
http://lacher.com/toc.htm
http://www.sistemaslym.net/vba/excel/excel.html
http://es.geocities.com/lacibelesde...macros.htm
http://es.geocities.com/lacibelesde...acros1.htm
http://www.macroheavy.com/excel/excel.asp
http://www.geocities.com/gorita_2000/VBA.htm
http://www.excelavanzado.com/
http://www.xtec.es/~rlloren4/KBEsp2.htm
http://www.exceluciones.com/portal/...p?article5