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!