Trouble pasting a picture of my table onto a new tab

I'm trying to write a macro to copy the visible cells in a table and paste them as a picture onto another tab. It keeps getting bogged down on the 6th line and I can't figure out why.

Range("A1:G202").Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Scorecard Pic").Select
    Range("A1").Select
    ActiveSheet.Pictures.Paste.Select
    ActiveSheet.Shapes.Range(Array("Picture 8")).Select