VBA - ALT+Enter (new line) in a Loop

Question

I am writing a macro to create a calendar in a new sheet based on an auto generated report. I have written enough of the macro to create the calendar in a new sheet and highligh

Answer 1

Get rid of .Select and append the new cell to the original value of Q16.

If cell.Interior.ColorIndex = 6 Then
    Sheets("sheet1").Cells(16, "Q") = Sheets("sheet1").Cells(16, "Q").Value & Chr(10) & cell.value
End If