Prezados,

Boa Noite!

A pouco mais de seis semana tenho procurado ajuda para criar um arquivo que me permita copiar as informações de uma tabela da web, creio que consegui evoluir bastante mas chegou ao ponto que não consigo mais avançar.

Neste fórum achei que alguns tópicos bem interessantes, porém não consegui finalizar meu arquivo.

Bom, vamos ao que preciso:

Utilizo um sistema Chamado Net Call Center, o qual é uma ferramente de CHAT utilizada no mundo todo.
Através deste sistema, tenho acesso ao uma série de relatórios e para facilitar o meu trabalho, criei um código que acessa este sistema, digita o usuário e senha, acessa uma das várias opções de relatório, atualiza uma delas inserindo a data início, fim, período, área e clica no botão "Listar", o qual atualiza o relatório com as informações informadas.

Depois que td que informei acima é finalizado eu gostaria de copiar as informações que aparecem na tabela e colar em uma planilha do excel.
Nas pesquisas que fiz em diversos sites, achei o código abaixo, o qual adicionei ao que fiz para acessar o mesmo:

Dim elemCollection As Object
Dim t As Integer
Dim r As Integer, c As Integer
Set elemCollection = ie.Document.getElementsByTagName("Table")
For t = 0 To elemCollection.Length - 1
For r = 0 To elemCollection(t).Rows.Length - 1
For c = 0 To elemCollection(t).Rows(r).Cells.Length - 1
ThisWorkbook.Worksheets(1).Cells(r + 1, c + 1) = elemCollection(t).Rows(r).Cells(c).innerText
Next c
Next r
Next t

Abaixo, a imagem da tabela que preciso copiá-la:

Bom, será que alguém consegue me ajudar.
Desde já, agradeço!