RESOLVIDO:

    Range("AB2").Select
    Dim tudo As String
    data = Format(Date, "dd/mm")
    tudo = "texto1/" & data & "/texto2"
    ActiveCell.Value = tudo
    Lastrow = Range("A" & Rows.Count).End(xlUp).Row
    Range("AB2").AutoFill Destination:=Range("AB2:AB" & Lastrow)

Obrigado na mesma Ricardo Pontual!