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?