Concatenar 2 columnas y que me la pegue en la siguiente hoja en 1 columna

Hola a todos:

¿como podría concatenar la columna C y D de la siguiente macro de la cual su autor es Antoni, y que me la pegue en la hoja2 columna D?

Muchas gracias por su tiempo y su apoyo.

Bendiciones.

Sub Copiar()
Application.ScreenUpdating = False

Set H1 = Sheets("ORIGEN")
Set H2 = Sheets("DESTINO")

H2.Range("A1:Z50000").ClearContents
H2.Range("A1:Z50000").ClearFormats

fila = H2.Range("A" & Rows.Count).End(xlUp).Row '+ 1
'Range("A" & fila) = "Albaranes"
fila = fila '+ 1
ufila = H1.Range("A" & Rows.Count).End(xlUp).Row

H1.Range("B1:B" & ufila).Copy: H2.Range("A" & fila).PasteSpecial 'xlValues

H1.Range("C1:C" & ufila).Copy: QUE SE CONCATENE CON LA COLUMNA E Y LA PEGUE EN LA HOJA 2 COLUMNA D
H1.Range("E1:E" & ufila).Copy: H2.Range("D" & fila).PasteSpecial 'xlValues

End Sub