Никита Дворец

Добрый день!
Примерно по такой логике:
' открыты обе книги

' Set rgCopy = wb1.Sheets(1).Range(Cells(8, 1), Cells(65, 13))
' rgCopy.Copy Destination:=wb2.Sheets(1).Range("A8:M65")

Application.CutCopyMode = False

Dim wb1 As Workbook
Set wb1 = ActiveWorkbook


Dim wb2 As Workbook
Set wb2 = Workbooks("C:\Users\DataFile.xlsm")

wb1.Activate
wb1.Sheets(1).Range(Cells(8, 1), Cells(65, 13)).Copy

wb2.Activate
wb2.Sheets(1).Range("A8").Select
Selection.Paste

Application.CutCopyMode = True

Вариант:

Public Sub FindPicture()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.Type = msoPicture Then
MsgBox ("Img")
Else
End If
Next shp
End Sub