尝试选择范围，以便稍后我可以在另一个工作簿中设置单元格= .value

Question

请帮助我知道这部分代码有什么问题：

For Each c In valRange
    If c.Value = valMatch Then
    RowArray(x) = c.Row
    Range("F" & c.Row - 1).Select
    FirstRow = Cells(Rows.Count, 6).End(xlUp).Row
    FirstRow.Select
    Range(ActiveCell, ActiveCell.End(xlDown)).Select
    x = x + 1
    End If


Next c

我希望在找到减去1行的c.row之后，这是我希望发送到另一个工作表的最后一个值。我想xlUp，选择那些单元格，然后返回并复制范围，或将.value =设置为另一个工作表中的另一个范围。如果您认为我可以更有效地执行此操作，请告诉我。感谢。

为了促进下面的讨论：

enter image description here

我希望从A：F获取全部数据，在本例中为第17 - 23行，然后循环并获取下一个找到的WireOut的全部数据。