VBA to Delete and Import Pictures in specific Column - excel

Question

I am getting a Runtime error 1004:Unable to get the TopLeft Cell Property of the Picture class. When I run this code back to back. The error is inconsistent but usually happens when I run the code more than once.
Sub InsertMultipleRGPictures()
Dim Pictures() As Variant
Dim PictureFormat As String
Dim PicRng As Range
Dim PicShape As Shape
Dim xPicRg As Range
Dim xPic As Picture
Dim xRg As Range
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
ActiveSheet.DisplayPageBreaks = False
Application.Calculation = xlCalculationManual
Sheets("Auto Post").Range("AZ3:AZ9").Select
Columns("AZ:AZ").ColumnWidth = 57
Set xRg = Range("AZ3:AZ14")
For Each xPic In ActiveSheet.Pictures
Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
Next
On Error Resume Next
PictureFormat = "Test Files (*.png; *.jpeg), *.png; *.jpeg"
Pictures = Application.GetOpenFilename(PictureFormat, MultiSelect:=True)
PicColIndex = Application.ActiveCell.Column
If IsArray(Pictures) Then
PicRowIndex = Application.ActiveCell.Row
For lLoop = LBound(Pictures) To UBound(Pictures)
Set PicRng = Cells(PicRowIndex, PicColIndex)
With ActiveSheet.Shapes.AddPicture(Pictures(lLoop), msoFalse, msoCTrue, PicRng.Left, PicRng.Top, -1, -1)
.LockAspectRatio = msoTrue
.Height = 250 * 3 / 4
Rng.RowHeight = .Height
.Top = PicRng.Top + (PicRng.Height - .Height) / 2
.Left = PicRng.Left + (PicRng.Width - .Width) / 2
Rng.ColumnWidth = .Width / Rng.Width * Rng.ColumnWidth
Rng.ColumnWidth = .Width / Rng.Width * Rng.ColumnWidth
Rng.ColumnWidth = .Width / Rng.Width * Rng.ColumnWidth
End With
PicRowIndex = PicRowIndex + 1
Next
MsgBox "Import Complete- Pictures"
End If
Columns("AZ:AZ").ColumnWidth = 52
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.Calculation = xlCalculationAutomatic
End Sub
Is there something I am missing here?