Нужно быть более динамичным при использовании функции поиска в vba

Question

У меня есть следующий код и застрял, когда задавался вопросом, как сделать результат поиска более динамичным, то есть после поиска «цены» мне нужно скопировать «цену» и ячейку, расположенную справа от нее, в ячейку 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