Insert Pictures problem with macro

Hi Folks,

I use a macro to import pictures from a folder, but is not working perfectly.
If you check, this macro (see txt attachment) insert pictures in a sheet and create "footers" above the picture with texts.
Somehow the pictures insert points moving down slowly, and I can see growing difference between the "footer" and the picture (after 10 pictures is around 1/8 cell size....)
Do you have any idea how can I fix it? (my row height is default: 12.75)

Thanks,

encleadus