Concatenate range

[Temporary-Failure]

I have variable "alue" which is range:
alue = "C" & alkurivi & ":" & "C" & r

Let say that alkurivi is 4 and r is 9.

How I concatenate cells C4:C9 to cell B4?

 

[wigi]

Like this:

Sub concatenating_cells()
    
    alkurivi = 4: r = 9
    alue = "C" & alkurivi & ":" & "C" & r
    
    [B4] = Join(Application.Transpose(Range(alue).Value))

End Sub