如何为过滤的单元格添加注释？

Question

我有一个宏，在数据表上有多个自动过滤器，并将过滤后的数据复制到另一个工作表。数据表包含A列中的注释列，在我输入注释之前，该列保持空白。

我正在尝试找到向复制的单元格添加注释的最佳方法，这样我就可以为我的5个过滤器中的每一个添加一个唯一的注释，而不必在事后进行手动操作。

.Range("A:Z").AutoFilter Field:=11, Criteria1:="="
Intersect(.UsedRange, .UsedRange).SpecialCells(xlCellTypeVisible).Copy
Sheets("FilteredData").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial xlPasteValues
Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row).Formula = "Missing Date"
Sheets("Data").AutoFilterMode = False