RESOLVIDO:
Range("AB2").Select
Dim tudo As String
data = Format(Date, "dd/mm")
tudo = "texto1/" & data & "/texto2"
ActiveCell.Value = tudo
Lastrowultima_linha = Range("A" & Rows.Count).End(xlUp).Row
Range("AB2").AutoFill Destination:=Range("AB2:AB" & Lastrowultima_linha)
Obrigado na mesma Ricardo Pontual!