Sub Скопи()
Dim y As Range
'
    If WorkBookIsOpen("Книга1.xlsm") Then
Workbooks("Книга1.xlsm").Activate
   Sheets(1).Select
Else
Workbooks.Open ("\\aaaa\Книга1.xlsm")
   Sheets(1).Select
End If
ActiveWindow.ActivatePrevious
    Range("BE15").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    ActiveWindow.ActivateNext
    Set y = Application.InputBox("Выберите ячейку", , , , , , , 8)
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False