在For循环中符合条件后选择单元格

Question

我正在列中搜索特定值。当我找到该值时，我希望代码选择该单元格。这是我遇到问题的地方。其余代码用于根据搜索过程中找到的单元格位置复制一系列单元格。

这是我的代码：

Sub BOM()

Dim r As Range, Cell As Object, h As Object, destsheet As Worksheet
Set h = Sheets("BOM").Range("A2")
Set r = Sheets("Cables").Range("F2:F60")
Set destsheet = Sheets("BOM")
For Each Cell In r
    If Cell.Value = h Then
        Cell.Activate
        ActiveCell.Offset(-8, 1).Resize(1, 20).Copy
        destsheet.Range("A6:A25").Select
        ActiveCell.PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
    End If
Next

End Sub