Dim n As Long 'номер строки
Cells.Find(What:="необходимое значение", After:=ActiveCell, LookIn _
:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
n= ???? 'что мне здесь необходимо указать ?