Hi, I'm kinda new to the VBA World, and I've written a little code that inserts a comment on to a cell (B2),
but the comment must come from multiple cells range (H1:H45)

With Range("B2")
        If Not .Comment Is Nothing Then .Comment.Delete
        Range("B2").AddComment
        Range("B2").Comment.Visible = False
        Range("B2").Comment.Text Text:=Range("H1:H45").Value
        Range("B2").Comment.Shape.TextFrame.AutoSize = True
End With
H1:H45 = 

Faltas:
19/10 | 2,16x ST226-301-154BR - ANGLO INDU / PO 1103247391_100
19/10 | 0,04x ST226-301-154BR - ANGLO INDU / PO 1103247391_100
xx/xx | 0,4x ABEL032006-001 - SEM VENDOR / PO 3424252902_
16/10 | 1x GCR_NW_T2_16 - SCHNEIDER  / PO 1201539381_40
15/10 | 2x NSYCVF850M115PF - SCHNEIDER  / PO 1201569820_50
23/10 | 1x LC1D188F7 - SCHNEIDER  / PO 1201569820_70
19/10 | 0,284x ST226-301-154BR - ANGLO INDU / PO 1103247391_100
19/10 | 0,567x ST226-301-154BR - ANGLO INDU / PO 1103247391_100
19/10 | 0,234x ST226-301-154BR - ANGLO INDU / PO 1103247391_100
19/10 | 0,36x ST226-301-154BR - ANGLO INDU / PO 1103247391_100
.
.
.
I've tried inumerous ways to make this, I've been searching for an hour now, and haven't found a solution, does anyone know a way?
Thanks.

John.