So I am getting this error Object Reference not set to an instance of an object. for some reason when I run it image = nothing which is causing rng = code to get this error.
Dim image As Excel.Shape
' This sets a reference to the image/end indactor.
image = oSheet.Shapes(oSheet.Shapes.Count)
' This sets up the range we are going to want to cut/copy over.
rng = oSheet.Range("A1", oSheet.Cells(image.TopLeftCell.Row + 3, 8))