on error resume next

Sub Макрос2()
    ActiveWindow.Zoom = 100
    On Error Resume Next 'пропуск ошибок
    For i = 1 To 26 'это типа цикл, я не знаю как Вам на самом деле нужно
        ActiveSheet.Pictures.Insert( _
            "\\ukkalita.local\iptg\Дивизион управления недвижимостью\Департамент эксплуатации объектов недвижимости\Служба Эксплуатации\ППР\КОТЛЯКОВКА, ТАГАНКА\фото\Котляковка\2019\2 кв\1 (5).jpeg" _
                ).Select
        If Not Err Then 'если ошибки нет
            With Selection.ShapeRange
                .LockAspectRatio = False
                .Width = Range("j13").Width
                .Height = Range("j13").Height
                .Top = Range("j13").Top
                .Left = Range("j13").Left + (Range("j13").Width - .Width) / 2
            End With
        End If
        Err.Clear 'сброс ошибки
    Next i
    On Error GoTo 0 'сброс пропуска ошибки (если ниже еще что-то будет, если не будет, то все само сбросится на End Sub)
End Sub

Sub Макрос2()
' Макрос2 Макрос
ActiveWindow.Zoom = 100

' 1 картинка
On Error Resume Next 'пропуск ошибок
For i = 1 To 7
ActiveSheet.Pictures.Insert( _
    "\\ukkalita.local\iptg\Дивизион управления недвижимостью\Департамент эксплуатации объектов недвижимости\Служба Эксплуатации\ППР\КОТЛЯКОВКА, ТАГАНКА\фото\Котляковка\2019\2 кв\1 (1).jpeg" _
        ).Select
If Not Err Then
With Selection.ShapeRange
.LockAspectRatio = False
       .Width = Range("j13").Width
       .Height = Range("j13").Height
       .Top = Range("j13").Top
       .Left = Range("j13").Left + (Range("j13").Width - .Width) / 2
End With
End If
    Err.Clear
    Next i
    On Error GoTo 0
    ' 2 картинка

On Error Resume Next
ActiveSheet.Pictures.Insert( _
    "\\ukkalita.local\iptg\Дивизион управления недвижимостью\Департамент эксплуатации объектов недвижимости\Служба Эксплуатации\ППР\КОТЛЯКОВКА, ТАГАНКА\фото\Котляковка\2019\2 кв\1 (2).jpeg" _
        ).Select
If Not Err Then
With Selection.ShapeRange
       .LockAspectRatio = False
       .Width = Range("j14").Width
       .Height = Range("j14").Height
       .Top = Range("j14").Top
       .Left = Range("j14").Left + (Range("j14").Width - .Width) / 2
End With
End If
Err.Clear
    Next i
    On Error GoTo 0
' 5 картинка

On Error Resume Next
ActiveSheet.Pictures.Insert( _
    "\\ukkalita.local\iptg\Дивизион управления недвижимостью\Департамент эксплуатации объектов недвижимости\Служба Эксплуатации\ППР\КОТЛЯКОВКА, ТАГАНКА\фото\Котляковка\2019\2 кв\1 (5).jpeg" _
        ).Select
If Not Err Then
With Selection.ShapeRange
.LockAspectRatio = False
       .Width = Range("j15").Width
       .Height = Range("j15").Height
       .Top = Range("j15").Top
       .Left = Range("j15").Left + (Range("j15").Width - .Width) / 2
End With
End If
Err.Clear
    Next i
    On Error GoTo 0
' 17 картинка

On Error Resume Next
ActiveSheet.Pictures.Insert( _
    "\\ukkalita.local\iptg\Дивизион управления недвижимостью\Департамент эксплуатации объектов недвижимости\Служба Эксплуатации\ППР\КОТЛЯКОВКА, ТАГАНКА\фото\Котляковка\2019\2 кв\1 (17).jpeg" _
        ).Select
If Not Err Then
With Selection.ShapeRange
.LockAspectRatio = False
       .Width = Range("j50").Width
       .Height = Range("j50").Height
       .Top = Range("j50").Top
       .Left = Range("j50").Left + (Range("j50").Width - .Width) / 2
End With
End If
Err.Clear
    Next i
    On Error GoTo 0
' 18 картинка

On Error Resume Next
ActiveSheet.Pictures.Insert( _
    "\\ukkalita.local\iptg\Дивизион управления недвижимостью\Департамент эксплуатации объектов недвижимости\Служба Эксплуатации\ППР\КОТЛЯКОВКА, ТАГАНКА\фото\Котляковка\2019\2 кв\1 (18).jpeg" _
        ).Select
If Not Err Then
With Selection.ShapeRange
.LockAspectRatio = False
       .Width = Range("j51").Width
       .Height = Range("j51").Height
       .Top = Range("j51").Top
       .Left = Range("j51").Left + (Range("j51").Width - .Width) / 2
End With
End If
Err.Clear
    Next i
    On Error GoTo 0
' 19 картинка
On Error Resume Next
ActiveSheet.Pictures.Insert( _
    "\\ukkalita.local\iptg\Дивизион управления недвижимостью\Департамент эксплуатации объектов недвижимости\Служба Эксплуатации\ППР\КОТЛЯКОВКА, ТАГАНКА\фото\Котляковка\2019\2 кв\1 (19).jpeg" _
        ).Select
If Not Err Then
With Selection.ShapeRange
.LockAspectRatio = False
       .Width = Range("j53").Width
       .Height = Range("j53").Height
       .Top = Range("j53").Top
       .Left = Range("j53").Left + (Range("j53").Width - .Width) / 2
End With
End If
Err.Clear
    Next i
    On Error GoTo 0
' 20 картинка
On Error Resume Next
ActiveSheet.Pictures.Insert( _
    "\\ukkalita.local\iptg\Дивизион управления недвижимостью\Департамент эксплуатации объектов недвижимости\Служба Эксплуатации\ППР\КОТЛЯКОВКА, ТАГАНКА\фото\Котляковка\2019\2 кв\1 (20).jpeg" _
        ).Select
If Not Err Then
With Selection.ShapeRange
.LockAspectRatio = False
       .Width = Range("j54").Width
       .Height = Range("j54").Height
       .Top = Range("j54").Top
       .Left = Range("j54").Left + (Range("j54").Width - .Width) / 2
End With
End If
Err.Clear

End Sub