I would write the code like this:
Sub test()
Dim DataRng As Range
Dim i As Integer, j As Integer, k1 As Integer, k_final As Integer, kf   As Integer
Dim LstCol As Integer, LR As Integer
Dim Mytext As String

Set WSF = Application.WorksheetFunction
Set DataRng = Sheets("First sheet").Range("A1:K10")
LstCol = 11
LR = 4

For i = 2 To LstCol
    For j = 2 To LR
        If Sheets("Final").Cells(1, i) = "Aligned" Or Sheets("Final").Cells(1, i) = "Global" Then
            Mytext = ""
            k1 = WSF.Match(Sheets("Final").Cells(j, 1), WSF.Index(DataRng, 0, 1), 0)
            k_final = k1 + WSF.CountIf(WSF.Index(DataRng, 0, 1), Sheets("Final").Cells(j, 1)) - 1
            For kf = k1 To k_final
                Mytext = Mytext & Sheets("First sheet").Cells(kf, i).Text & IIf(kf < k_final, "," & Chr(10), "")
            Next kf
'            Mytext = WSF.TextJoin("," & Chr(10), True, Sheets("First sheet").Range(Cells(k1, i) & ":" & Cells(k_final, i)))
'            Mytext = WSF.TextJoin("," & Chr(10), True, Sheets("First sheet").Range(Cells(k1, i), Cells(k_final, i)))
'            Mytext = WSF.TextJoin("," & Chr(10), True, WSF.Index(DataRng, k1, i) & ":" & WSF.Index(DataRng, k_final, i))
            Sheets("Final").Cells(j, i) = Mytext
        Else
            Sheets("Final").Cells(j, i).Value = WSF.Index(DataRng, WSF.Match(Sheets("Final").Cells(j, 1), WSF.Index(DataRng, 0, 1), 0), i)
        End If
    Next j
Next i

End Sub
It worked here