CÓDIGO:
Range("AB2").Select
Dim tudo As String
data_pasta = Format(Date, "/yy/mm/")
tudo = "https://pagina.pt/wp-content/imagens" & data_pasta & **D2** ".png"
ActiveCell.Value = tudo
ultima_linha = Range("A" & Rows.Count).End(xlUp).Row
Range("AB2").AutoFill Destination:=Range("AB2:AB" & ultima_linha)
EXEMPLO: https://pagina.pt/wp-content/imagens/17/31/
1234122.png