Auto Resize Pasted Picture to merged cell

Hi... To ALL...

I get one macro that insert picture from disk to selected cell, then auto resize that picture to merged cell size.

But, now i intend to use that same code to PASTE a picture (from System Clipboard) then resize to merged cell size

PASTING to selected merged cell, it works fine...
But.. The resize,... Not that fine.

Here is the code i intend to use;

Private Sub CommandButton1_Click()
Dim p As Picture
 Application.ScreenUpdating = False
 
 Set p = ActiveSheet.Pictures.Paste

If Target.Cells.Count = 1 Then Set Target = Target.MergeArea
 With Target
 p.Top = .Top
 p.Left = .Left
 p.Width = .Width
  End With

End Sub

I get ERROr in this line;

If Target.Cells.Count = 1 Then ...

Can someone help me in this...

THANKs