Planilla de fotos de alumnos

Ya lo tengo, cortando de aquí y pegando de allá. Cuando tenga un rato pongo lo que he hecho, que seguro que será muy mejorable.

Bueno, aquí estoy.

He cambiado ligeramente la base de datos, por simpliciodad. Ahora es:

Código Celda Alumno
001 A1 Marta
002 A2 Jaime
003 B1 Luisa
004 B2 Juan
etc...

La base de datos está en una hoja que llamo "2ºESO" y las fotos las pongo en otra que llamo "Planilla"
En la planilla he puesto previamente un Ancho_de_columna 15 y un Alto_de_fila0, para todas las filas y columnas ocupadas.

El código es el que sigue:

Sub PonerFotos()
'
' Borrar fotos preexistentes
'

On Error Resume Next
Dim img As Shape
For Each img In ActiveSheet.Shapes
img.Delete
Next

'
' Poner Fotos
'

On Error Resume Next
Set Origen = Sheets("2ºESO")
Set Destino = Sheets("Planilla")

For i = 2 To 5
Set Celda = Origen.Cells(i, "B")
Set Alumno = Origen.Cells(i, "C")
Set Codigo= Origen.Cells(i, "A")

FotoDir = "C:\Ruta carpeta fotos" & "\" & Código.Value & ".jpg"

Destino.Range(Celda).Value = Alumno
Destino.Shapes.AddPicture FotoDir, True, True, Range(Celda).Left + 1, Range(Celda).Top + 1, 63, 84
Next
MsgBox "Proceso terminado", vbInformation
'
End Sub

Ahora me gustaría quitar el For-Next y poner algún control para que se repita mientras haya filas con datos en la hoja "2ºESO" y añadir más datos de cada alumno en la planilla, pero eso no corre prisa.