在vba中使用searchfunction时需要更加dynamic

我有下面的代码，并想知道如何使search结果更加dynamic，即search“价格”后，卡住了，我需要将“价格”和右边的单元格复制到单元格A1，任何帮助赞赏。

Sub Macro1() Cells.Find(What:="price", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate Range("L14:M14").Select Selection.Copy Range("A1").Select ActiveSheet.Paste Range("A1").Select End Sub 

Answer 1

 Sub Macro1() Dim f as Range Set f = Activesheet.Cells.Find(What:="price", After:=ActiveCell, _ LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:= False, SearchFormat:=False if not f is nothing then f.resize(1,2).copy Activesheet.Range("a1") end if End Sub