Tức là bạn muốn khi bấm nút Select Folder thì ảnh chèn luôn?
Vậy sửa SelectFolder thành:
Sub SelectFolder()
Dim arr, vFolder, pic, Target As Range
Dim lR As Long
Dim PicPath As String
On Error Resume Next
vFolder = CreateObject("Shell.Application").BrowseForFolder(0, "", 1).Self.Path...