Excel VBA-ALT+在循环中输入（新行）

我正在编写一个宏，以便根据自动生成的报告在新工作表中创建日历。我已经编写了足够的宏，可以在新的工作表中创建日历，并突出显示与报告对应的任何日期。现在我想在每个周末将所有突出显示的日期写在一个单元格中。没有vba，我可以按ALT+ENTER。但是，按照当前宏的运行方式，它只是使用最靠近末端的高亮显示单元格重新填充单元格，而不是使用线制动器。我想我需要以某种方式合并chr10，但我不确定如何合并

任何帮助都将不胜感激。以下是我当前的循环：

'find dates in August
Dim augustRng As Range
Set augustRng = Sheets("sheet1").Range("J16:P16")
For Each cell In augustRng
If cell.Interior.ColorIndex = 6 Then
    cell.Select
    Sheets("sheet1").Cells(16, "Q") = ActiveCell.Value
End If
Next cell

删除。选择新单元格并将其附加到Q16的原始值

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