Sub Copy()
Dim newslide As SlideRange
Dim pasteFrom As Long
Dim pasteTo As Long
Dim objPres As Presentation
Dim i As Integer
Dim target As Presentation
Set target = ActivePresentation
pasteFrom = 2                                 ' source position
pasteTo = 12                              ' target position
'Note I changed the Path
Set objPres = Presentations.Open("C:\PresentationA.pptx") 'target file

    objPres.Slides(pasteFrom).Copy
   Set newslide = target.Slides.Paste(pasteTo)
   With newslide(1).Shapes.AddShape(msoShapeRectangle, 10, 10, 100, 20)
   .Fill.Visible = False
   .TextFrame.TextRange = "NEW"
   .TextFrame.TextRange.Font.Color.RGB = vbRed
   End With
    target.Slides(pasteTo).Design = target.Slides(pasteFrom).Design

objPres.Close
End Sub