'Определяем количество заполненных строк на исходном Лист1
    Sheets("Лист1").Select
    SheetRows = ActiveWorkbook.ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
    ColRows = Application.WorksheetFunction.CountA(Range(Cells( 1 ,  3 ), Cells(SheetRows,  3 )))

    ItRows =  6  'последняя заполненная строка в итоговом листе

    'Цикл по заполнению строк в листе с итогами
    For i =  2  To ColRows
    'читаем путь на файл с картинкой
    Sheets("Лист1").Select
    FotoTov = Range("T" & i).Value

    'считаем на какую строку выводить картинку
    Sheets("Price").Select
    Strok = ItRows +  1 
    ItRows = Strok
    
    'выводим картинку в ячейку
     Range("C" & Strok).Select
     ActiveSheet.Pictures.Insert(FotoTov).Select
     With Selection
            .ShapeRange.LockAspectRatio = msoTrue
            .ShapeRange.Height =  65 . 25 
            .ShapeRange.Rotation =  0 #
             .Placement = xlMove
            .PrintObject = True
     End With
     Next i