Boa tarde.
Criei uma macro para concatenar duas celulas, porém deparei com um problema que pesquisei na internet.
Ao concatenar ela mantem a informação da primeira celula e no código a formula está colocando o código em numero crescente.

Sub Teste_Macros()
'
' Teste_Macros Macro
' Denilson Roberto de Souza
'

'
Dim w As Worksheet
Dim senha As String
senha = "123"
Set w = Plan4
Dim ulinha As String
'i = 3
w.Activate

If w.ProtectContents = True Then

w.Unprotect senha

End If
'ultimalinha = Sheets("cadastro").Range("a" & Rows.Count).End(xlUp).Row
ulinha = w.Cells(Cells.Rows.Count, 1).End(3).Row
'ulinha = w.Cells(Cells.Rows.Count).End(xlUp).Row
'Sheets("Lto").Select
'w.Range("D3").AutoFill w.Range("D3:D" & ulinha)

'Range("e3").Select = Range("b3") & " " & Range("c3") & ulinha
Sheets("lto").Select
Range("d3:d" & ulinha).Select
Range("e3:e" & ulinha).Select
'Selection.ClearContents
    w.Range("e3") = Range("b3") & " " & Range("c3")
    w.Range("e3").AutoFill w.Range("e3:e" & ulinha)
    'w.Range("e3").AutoFill w.Range("e3:e" & ulinha)


w.Protect senha
End Sub