Range("a1:i50").CopyPicture Appearance:=xlScreen
Sheets ("Reporte").Select
Range("a1").Select
ActiveSheet.Paste
Range("A1:I50").Select
Selection.Copy
Sheets("Reporte").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Pictures.Paste.Select
Application.CutCopyMode = False