Añadir un parametro.

Teniendo el siguiente macro:

Sub inserta()
Dim celda As Range
For Each celda In Range("B:B")
If celda.Value = "" Then Exit Sub
If celda.Value > celda.Row Then celda.EntireRow.Insert
Next celda
End Sub

Necesito sacar el número de celda, para hacer una copia de A1 a An
donde la n es el valor de celda en que está en proceso.