Concatenar cadena utilizando la macro de Excel

Tengo un escenario donde necesito concatenar las filas de 1 columna. Para esto, estaba tratando de crear una Macro. Sin embargo, cuando estoy usando la fórmula, arroja el error definido por la aplicación. A continuación está el código

Sub ABCS() Dim U Dim str As String Set myArrayList = CreateObject("System.Collections.ArrayList") Set ws = ThisWorkbook.Worksheets("Sheet2") Application.ScreenUpdating = False Application.Calculation = xlCalculationManual lastrow = ws.Cells(65536, 1).End(xlUp).Row MsgBox lastrow For i = 1 To lastrow str = Cells(i, 1).Value Cells(2, 2).Formula = "=CONCATENATE(" & str & ")" Next i End Sub 

Espero que estés buscando …

 Sub ABCS() Dim U Dim str As String Set myArrayList = CreateObject("System.Collections.ArrayList") Set ws = ThisWorkbook.Worksheets("Sheet2") Application.ScreenUpdating = False Application.Calculation = xlCalculationManual lastrow = ws.Cells(65536, 1).End(xlUp).Row MsgBox lastrow For i = 1 To lastrow str = Cells(i, 1).Value Final = Final & str Next i Cells(2, 2) = Final End Sub 

Otra forma de hacer la concatenación es la siguiente. Aquí podemos llamar directamente a la celda específica con el Rango de concatenamiento (ver la image a continuación).

 Public Function concaetenateme(r As Range) As String Dim str As String For i = 1 To r.Cells.Count str = r.Cells(i) Final = Final & str Next i concaetenateme = Final End Function 

enter image description here