在一个工作表中查找值并粘贴到列中下一个空白行中的另一个工作表中

Question

我是VBA的新手，我试图根据B列中的条件通过VLOOKUP在Sheet6列C中找到一个值并粘贴到sheet2列B中的第一个空行。我得到运行时错误＆＃39; 424＆＃39 ;：执行代码时所需的对象。

有人可以帮忙吗？这是我写的代码。

Sub Findvalue()
AssignValueToBlankCell WorksheetFunction.vlookup("mhg",Sheet6.Range("a2:H25"), 2, False) 
End Sub

Sub AssignValueToBlankCell(ByVal v As Variant)
Sheet2.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Value2 = v
End Sub