하나의 폴더에서 사진을 일괄적으로 순서대로 넣는 방법 문의

Sub insert_Pic(ByRef Pic As Variant, ByRef Pos As Range, Optional w As Integer, Optional h As Integer)
 
    If Pic = "" Then
        Exit Sub
    End If
 
    If w = 0 Or h = 0 Then
        w = Pos.ColumnWidth
        h = Pos.RowHeight
    Else
        Pos.ColumnWidth = w
        Pos.RowHeight = h
    End If
 
 
    With ActiveSheet.Shapes.AddPicture(Pic, False, True, Pos.Left, Pos.Top, Pos.Width, Pos.Height)
        .LockAspectRatio = msoTrue
    End With
 
End Sub
 
 
 
Sub ListFiles()
 
 
Application.ScreenUpdating = False
 
    Dim DestPos As Range
    Dim filePath As String
    Dim fileName As String
 
 
    filePath = "C:\Users\HOME\Downloads\"
 
    Set DestPos = [a1]
 
    fileName = Dir(filePath & "*.jpg")
 
    Do While fileName <> ""
        insert_Pic filePath & fileName, DestPos, 20, 90
        Set DestPos = DestPos.Offset(1, 0)
 
        fileName = Dir
    Loop
 
 
Application.ScreenUpdating = True
 
 
End Sub