Антон Федорян

=СЦЕПИТЬ("htps:/example.ru/imgs/";A1;"/1jpg")

С помощью макроса:

Sub AppendExt()
    Dim WB As Workbook
    Dim WS As Worksheet
    
    Dim Ri As Integer
    Dim Rj As Integer
    Dim Ci As Integer
    Dim Cj As Integer
    
    Set WB = Excel.ActiveWorkbook
    Set WS = WB.Worksheets("list1")
    
    ' Диапазон ячеек для замены

    ' Начальная строка
    Ri = 1
    ' Конечная строка
    Rj = 4
    ' Начальный столбец
    Ci = 1
    ' Конечный столбец
    Cj = 2
    
    For C = Ci To Cj
        For R = Ri To Rj
            If Not IsEmpty(WS.Cells(R, C)) Then
                WS.Cells(R, C).Value = WS.Cells(R, C).Value & ".jpg"
            End If
        Next R
    Next C
End Sub

Либо просто скопировать нужные строки в любой блокнот с поддержкой регулярных выражений и подставить в конец все чего не достает, а потом этим заменить старые ссылки.

Sub AppendExt()
    Dim WB As Workbook
    Dim WS As Worksheet
    
    Set WB = Excel.ActiveWorkbook
    Set WS = WB.Worksheets("list1")
    
    For Each HL In WS.Hyperlinks
        HL.Address = HL.Address & ".jpg"
    Next
End Sub

Возможно. Загуглить для начала тоже не проблема.

А чего самим лень уже использовать поисковики?
excelvba.ru/code/Security

="Модель " & B1 & " уникальная..."

Вам нужна функция DateAdd():

Sub test()
    Dim d As Date
    d = DateAdd("d", 90, Now)
    Selection.TypeText (d)
End Sub