Faz um loop pelas células e concatena quando as células em branco estão presentes

Question

Eu gostaria de percorrer as células da coluna A e, se uma célula estiver em branco, executar a função CONCATENATE na coluna C da coluna B. Eu tenho esse código, mas ele não está funcionando. Qualquer ajuda seria muito apreciada.

Sub ConcateBlank()

For i = 3 To 400
    If Cells(i, 1) = "" Then
    Cells(i, 3) = CONCATENATE(Cells(i, 2), " ", Cells(i + 1, 2))
    End If
Next i
End Sub

    

Answer 1

Este funciona sem o CONCATENATE (talvez mais rápido):

Sub ConcateBlank()

For i = 3 To 400
    If Cells(i, 1) = "" Then
        Cells(i, 3) = Cells(i, 2) & " " & Cells(i + 1, 2)
    End If
Next i
End Sub