关于对话框按顺序插入图片问题跪求帮忙啊！！！！！

lihao3314

如题，就是单击按钮，弹出对话框，选择图片，插入指定区域。。。难点是第二张图片插入下一个区域，一共插入四张图片，查满了提示已经插入完成。。我是靠插入图片同时插入文字识别的。有大哥能忙帮去掉插入问题这一步吗！！！！！
Sub pica()
    ChDir "C:\Users\" & Environ("USERNAME") & "\Pictures\"
    Dim filenames
    Dim filefilter As String
    filefilter = ("所有图片文件,*.jpg;*.bmp;*.png;*.gif")   '所有图片文件后面的括号为中文括号
    filenames = Application.GetOpenFilename(filefilter, , "请选择一个图片文件", , MultiSelect:=False)
        If filenames = False Then
           Exit Sub
        Else
            If Range("B5").Value = "" Then
            ActiveSheet.Shapes.AddShape(msoShapeRectangle, Range("B5:F25").Left, Range("B5:F25").Top, Range("B5:F25").Width, Range("B5:F25").Height).Select
            Selection.ShapeRange.Fill.UserPicture filenames
            Range("B5").Value = "有"
            Exit Sub
            ElseIf Range("G5").Value = "" Then
            ActiveSheet.Shapes.AddShape(msoShapeRectangle, Range("G5:K25").Left, Range("G5:K25").Top, Range("G5:K25").Width, Range("G5:K25").Height).Select
            Selection.ShapeRange.Fill.UserPicture filenames
            Range("G5").Value = "有"
            Exit Sub
            ElseIf Range("L5").Value = "" Then
            ActiveSheet.Shapes.AddShape(msoShapeRectangle, Range("L5:P25").Left, Range("L5:P25").Top, Range("L5:P25").Width, Range("L5:P25").Height).Select
            Selection.ShapeRange.Fill.UserPicture filenames
            Range("L5").Value = "有"
            Exit Sub
            ElseIf Range("Q5").Value = "" Then
            ActiveSheet.Shapes.AddShape(msoShapeRectangle, Range("Q5:U25").Left, Range("Q5:U25").Top, Range("Q5:U25").Width, Range("Q5:U25").Height).Select
            Selection.ShapeRange.Fill.UserPicture filenames
            Range("Q5").Value = "有"
            Exit Sub
            End If
        End If
ErrorCheck:
    MsgBox "图片已满，请删除后插入"
End Sub