Sub Macro1()
Dim Plg As Range
'application screenupdating=false
Workbooks.Open ThisWorkbook.Path & "\ven 1.xLsx", ReadOnly:=True
Set Plg = ActiveWorkbook.Worksheets("MO 1").[Q12:Q1000000]
Set Plg = Intersect(Plg.Worksheet.UsedRange, Plg)
Plg.Copy Destination:=ThisWorkbook.Worksheets("MO 2").[Q12]
ActiveWorkbook.Close
End Sub