Looks like that could be replaced with:
    Dim oCurSht As Worksheet
    Set oCurSht = ActiveSheet
    Workbooks.Open Filename:= _
                   "X:\089872 - IPW - Framework\02 Admin\01 DocRegisters\IPW-CAP-00-XX-RE-Z-0001.xlsx"
    oCurSht.Range("B7:B11").Value = ActiveSheet.Range("D6:D10").Value