Здравствуйте уважаемые.  
Взял макрос от EducatedFool, и решил приспособить его для своих нужд. Но после n попыток замен rows на columns и т.п., понял, что без помощи не обойтись.  
Есть подпапка, откуда происходит подстановка фото. Хочу понять, как мне самому обозначить диапазон с именами jpg файлов, и диапазон куда они будут подставляться. Всё остальное в процедуре без изменений.  
 
Изменял вот этот участок кода  
Dim cell As Range, ra As Range: Application.ScreenUpdating = False  
   Set ra = Range([A2], Range("A" & Rows.Count).End(xlUp))
   For Each cell In ra.Cells  
       fileNumber = cell.Text: Err.Clear  
       If Len(fileNumber) = 6 Then  
           FilePath = "": FilePath = FileNames(fileNumber & "a")  
           If Err.Number = 0 Then ВставитьКартинку cell.Next, FilePath  
       End If  
   Next cell  
   Application.ScreenUpdating = True  
 
Спасибо