Values from 2 collumns into 1 column

[Ethan]

I am trying to get values from 2 columns into one, but can't get it done.
This is what I tried



Range("J12:J" & LRow + 1).Value = Range("P11:P" & LRow).Value & " | " & Range("Z11:Z" & LRow).Value


all help welcome

[SamT]

I'm using Rw instead of Lrow + 1.


Dim Rw As String
For Each Cel in Range("J12:J" & CStr(LRow + 1))
Rw = CStr(Cel.Row - 1)
Cel. = Range("P" & Rw) & " | " & Range("Z" & Rw)
Next Cel

[Ethan]

Thank you SamT

It worked.
Only had to change the following line a bit:



Cel.value = Range("P" & Rw) & " | " & Range("Z" & Rw)

[SamT]

I'm sorry about that. I am really embarrassed by my code today :ack: