Некий поиск

Private Sub CommandButton1_Click() Dim TargetRow As Long Dim TargetColumn As Integer Dim FoundNomer As Range Dim FoundOkno As Range Dim FoundOknoRow As Long TargetRow = ActiveCell.Row ‘строка активной ячейки TargetColumn = ActiveCell.Column ‘столбец астивной ячейки With Sheets(«Свод») ‘надо перенести содержимое Продолжить чтение Некий поиск