Excel - Concatener valores mediante VBA Excel

Probablemente la forma mas eficiente de rellenar con datos fijos un rango de celdas sea de la siguiente forma:

ActiveCell.Resize(, 4) = Array("Titulo1", "Titulo2", "Titulo3", "Titulo4")

Viendo que existe este método, estoy investigando si se puede hacer lo contrario, es decir, tengo un rango de celdas, B1:D1 con información que quiero que aparezca en A1, solo valores, actualmente lo que hago es:

Range("A1").Value = ActiveCell.Offset(0, 1) & ActiveCell.Offset(0, 2) & ActiveCell.Offset(0, 3)

La cosa es que si el rango a concatenar es mayor ya se vuelve medio fastidioso, ¿me paso directamente a un bucle?

Saludos.

... yo lo haría con un bucle For Each c In Rng ... Next c

Saludos, desde Baires, JuanC

Gracias por la opinión estimado JuanC, fue lo que supuse...
Saludos.