VBA code to combine (concatenate) a range of cells

[cjcass]

Hi,
I have the code below which I have used before but it doesn't seem to want to work anymore?
Can anyone see what's wrong with it or suggest an alternative as simple as this to concatenate a range of cells?
many thanks.

Range("AE4").Select
ActiveCell.FormulaR1C1 = "=combine(R5C29:R10000C29)"
Range("AE5").Select

 

[cjcass]

Hi,
I don't quite follow you, have changed my code to as below but it has the same problem still...

For j = 6 To 1000
If Cells(j, 35) = "" Then GoTo 100
myconcat = myconcat & Cells(j, 35)
Next j
100 Cells(1, 35) = myconcat


For j = 6 To 1000
If Cells(j, 38) = "" Then GoTo 1000
myconcat = myconcat & Cells(j, 38)
Next j
1000 Cells(1, 38) = myconcat

 

[oldbrewer]

in the gap between the 2 parts put myconcat=""

 

[cjcass]

Awesome!
Many thanks for sticking with me on this, much appreciated

 

[oldbrewer]

you could combine the "2" macros if you wanted - good learning opportunity....

 

[cjcass]

my head's sore enough!!