CONCATENATE till Blank Cell - Kinda need help ASAP :(

[Ildestino]

Dear Excel Genius,

First, I would like to apologize for this urgent question. I will have a meeting in few hours and I would need this part of VBA for my Report.

This question probably has been asked... and asked... but... im kinda stuck somehow...

Dim i As Long

i = Range("F" & Rows.Count).End(xlUp).Row


Range("M2").Formula = "=$I2$&$F2$&$H2$"
Range("M2:M" & i).FillDown
 Calculate
        Columns("M:M").Select
    Selection.Copy
    Range("M1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

This is the code I am using. I do not understand, why it always fails. It should concatenate values till it finds blank. columns "I", "F" and "H" are all constant and have value.

Could you please have a look at my code and tell/show me what I could improve to make this coding work?

Thank you very much in advance.

Kind regards

Ildestino

 

[RedBeard]

Shouldn't

"=$I2$&$F2$&$H2$"

be

"=$I2&$F2&$H2"

?

 

[Ildestino]

Shouldn't

"=$I2$&$F2$&$H2$"

be

"=$I2&$F2&$H2"

?

Well, slap my face and call me Sally, this was the error Thank you very much red beard!