循环遍历数据范围中的每个单元格并在excel中添加值

Question

我有一个数据范围，我想遍历每个单元格并在excel中添加单元格的值。我尝试下面的代码，但它不断拉我excel中的第一个单元格值。以下是我的代码

Dim My_Range As Range 
Dim My_Cell As Range

Set My_Range = ThisWorkbook.Worksheets("Report").Range("I8,J8,K8,L8,M8,I10,J10,K10,L10,M10,I12,J12,K12,L12,M12,I14,J14,K14,L14,M14,I16,J16,K16,L16,M16,I18,J18,L18,L18,M18")

For Each My_Cell In My_Range.Cells

If My_Cell <> "" Then

Range("C6").Select ActiveCell.End(xlDown).Offset(1, 0).Select 
ActiveCell.Value = My_Range

End If

Next My_Cell