Я пытаюсь найти элемент в листе Excel и вставляю информацию в соседний столбец. Мне нужно убрать номер в первом листе Excel из его гипсов, а затем найти его в другом документе. До сих пор у меня не было проблем с этим, однако, когда я пытаюсь выбрать вторую строку, я получаю ошибку компиляции, говоря, что ожидается номер строки или метка.
Sub info()
Dim dehyp As Long
Dim rng As Range
dehyp = Replace(Range("A5").Value, "-", "")
Sheets("Gov").Select
Set rng = Sheets("Gov").Columns(1).Find(What:=dehyp, LookIn:=xlFormulas,
LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
Select
Selection.Copy
Sheets("Total usage").Select
Range("B5").Select
ActiveSheet.Paste
End sub