Estou a utilizar o seguinte código para que apresente apenas o dia e o mês.

    Range("AB2").Select
    ActiveCell.Value = "=Now()"
    ActiveCell.NumberFormat = "yy/mm"
    ultima_linha = Range("A" & Rows.Count).End(xlUp).Row
    Range("AB2").AutoFill Destination:=Range("AB2:AB" & ultima_linha)
Pretendo que seja apresentado da seguinte forma: texto/**17/31**/texto.  
Alguma ajuda sobre como popular os campos?