Bom, procurei uma solução para meu problema, (por muitas fotos de uma só vez e de forma organizada na planilha) no Youtube, fóruns e etc., mas a solução mais próxima foi essa a baixo, que originalmente preenchia por coluna, tentei editar o código para que pudesse executar da forma que eu preciso, mas ele simplesmente empilha tudo no canto direito da planilha.
Private Sub Inseri_Click()
Dim strFolder As String
Dim strFileName As String
Dim objPic As Picture
Dim rngCell As Range
Dim i As Integer
strFolder = ThisWorkbook.Path & "\" 'diz o caminho das imagens
If Right(strFolder, 1) <> "\" Then 'verificando se esta vazio
strFolder = strFolder & "\"
End If
Set rngCell = Range("F2")
strFileName = Dir(strFolder & "*.jpg", vbNormal)
Do While Len(strFileName) > 0
Set objPic = ActiveSheet.Pictures.Insert(strFolder & strFileName)
With objPic
.Left = rngCell.Left
.Top = rngCell.Top
.Height = rngCell.Height
.Placement = xlMoveAndSize
End With
If (i < 5) Then
Dim e As Integer
e = e + 1
Set rngCell = rngCell.Offset(0, e)
i = i + 1
Else
Set rngCell = rngCell.Offset(1, 0)
i = 0
End If
strFileName = Dir
Loop
End Sub