VBA para renomear arquivos em lote

Galera, tudo certo?

Seguinte tenho um código para alterar arquivos em lote. Ele conta com dois comandos um para listar os arquivos e outro pra renomear os arquivos. E ele funciona com as seguintes colunas: Nome; Extensão; Novo nome e Novo nome completo. A minha dúvida é a seguinte estou precisando colocar esses comandos dentro de uma outra planilha, e que trabalhe sem a coluna ‘extensão’ e ‘novo nome completo’’ e em colunas diferentes do código original. Eu não manjo muito disso então se alguém puder me informar o que devo mudar.

ub ListarArquivosExcel()
Dim FName As String
'Cria um vetor de strings
Dim arNames() As String
Dim myCount As Integer
Dim fPasta As String
Dim lsExtensao As String

lsExtensao = "*.*"
    
'Seleciona a pasta
lsCaminho fPasta

'Determina o diretório e a extensão do arquivo
FName = Dir(fPasta & lsExtensao)

'Limpa a planilha
Plan1.Range("A9:A1048576").Clear

If [Tabela1].Rows.Count >= 2 Then
    [Tabela1].Rows("2:" & [Tabela1].Rows.Count).Delete
End If

'Atribui o nome da pasta
Plan1.Range("F1").Value = fPasta

'Enquanto FName for igual a vazio "", realiza a listagem dos arquivos
Do Until FName = ""
    myCount = myCount + 1
    'Redimensiona o vetor, preservando os dados
    ReDim Preserve arNames(1 To myCount)
    arNames(myCount) = FName
    'Passa os dados para a planilha
    Cells(myCount + 8, 1).Value = arNames(myCount)
    'Atualiza a variável FName
    FName = Dir
Loop

End Sub

'Retorna a posição de uma caractere conforme a ocorrência
Public Function POSICAO(ByVal texto_procurado As String, ByVal no_texto As String, Optional ByVal Ocorrencia As Long = 1, Optional ByVal ultima_ocorrencia As Boolean) As Long
Dim lContador As Long
Dim lQtdeOcor As Long

lQtdeOcor = 0
lContador = 1

While lContador <= Len(no_texto)
    If Mid(no_texto, lContador, 1) = texto_procurado Then
        lQtdeOcor = lQtdeOcor + 1
        
        If lQtdeOcor = Ocorrencia And ultima_ocorrencia = False Then
            POSICAO = lContador
            Exit Function
        Else
            POSICAO = lContador
        End If
    End If
    
    lContador = lContador + 1
Wend

End Function

Sub lsCaminho(ByRef vCaminho As String)
Dim lstrPasta As String

With Application.FileDialog(msoFileDialogFolderPicker)
    'Permitir mais de uma pasta
    .AllowMultiSelect = False
    'Mostrar janela
    .Show
    If .SelectedItems.Count > 0 Then
        lstrPasta = .SelectedItems(1)
    End If

End With

'Atribuir caminho a variável
vCaminho = lstrPasta & "\"

End Sub

'Procedimento que renomea os arquivos
Public Sub lsRenomearArquivos()
On Error Resume Next

Dim lLinha As Long

lLinha = 9

Do While Not IsEmpty(Range("C" & lLinha))
    Name Plan1.Range("F1").Value & Plan1.Range("A" & lLinha) As Plan1.Range("F1").Value & Plan1.Range("D" & lLinha)
    lLinha = lLinha + 1
Loop

MsgBox "Nomes dos arquivos alterados!", vbOKOnly, "Processo Concluído"

End Sub