I am trying to string together the comments in several columns into a "Meta"
comment in the "Total" column. The idea is to bring together all of the rows
comments together as one large comment.

I have tried ths and severla other ways to accomplish my task, but cannot
get it to work.
For q = C To 3 Step -3
Dim cmt As Comment
Set cmt = Cells(i, q).Comment
Line_cmt = Cells(i, (C + 1))
If Not cmt Is Nothing Then
Line_cmt = Line_cmt & AddComment.Text
End If
Next q