I think you missed some things
THis is not tested, but might be a better starting point
Option Explicit
Sub FilesInFolder()
Dim vFile As Variant
Dim iCurRow As Long
Dim oldName1 As String, newName1 As String, strPath As String
strPath = Blad1.Cells(4, 2).Value
If Right(strPath, 1) <> Application.PathSeparator Then strPath = strPath & Application.PathSeparator
vFile = Dir(strPath & "*.*") 'Change or add formats to get specific file types
iCurRow = 8
Do While vFile <> "" 'LOOP until all files in folder strPath have been looped through
Blad1.Cells(iCurRow, 2).Value = vFile
vFile = Dir
If vFile <> "" Then
iCurRow = iCurRow + 1
Blad1.Cells(iCurRow, 2).Value = vFile
End If
Loop
End Sub
Sub RenameFiles()
Dim iCurRow As Long
Dim oldName1 As String, newName1 As String, strPath As String
strPath = Blad1.Cells(4, 2).Value
If Right(strPath, 1) <> Application.PathSeparator Then strPath = strPath & Application.PathSeparator
iCurRow = 9
Do While Blad1.Cells(iCurRow, 2).Value <> ""
oldName1 = strPath & Blad1.Cells(iCurRow, 2).Value
newName1 = strPath & Blad1.Cells(iCurRow, 3).Value
Name oldName1 As newName1
iCurRow = iCurRow + 1
Loop
End Sub