Sub Macro2()
'
' Macro2 Macro
'
'
Range("A5:B6").Select
Range("B6").Activate
Selection.Copy
ActiveSheet.Shapes.AddShape(, 181.5, 260.25, 72#, 72#).Select
ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Application.CutCopyMode = False
Range("K5:L6").Select
Range("L6").Activate
Selection.Copy
ActiveSheet.Shapes.AddShape(, 183#, 314.25, 72#, 72#).Select
ActiveSheet.Shapes.Range(Array("Picture 2")).Select
Application.CutCopyMode = False
End Sub