Guru do Excel e Power BI

Olá, Prezados!

Estou tentando buscar informações de planilhas fechadas e consolidada-las em único arquivo, verifiquei algumas programações, porém estou barrando na questão de colocar a informação da próxima planilha abaixo das informações que da planilha anterior (famoso cont +1), onde ao realizar o End(xlup) para procurar a última informação debaixo pra cima, ele posteriormente não está contando +1 para ir para linha em branco e inserir a informação do próximo arquivo.

Pegando alguns exemplos de amigos aqui do forum cheguei até o momento neste código:

Sub AleVBA_2322()
Dim wb As Workbook, wbXLS As Workbook
Dim sPath As String, sFilename As String
Dim NbRows As Integer, rg As Range
Dim linha As Integer
Dim lindestino As Integer
lindestino = 2
DisplayAlerts = False
Set wb = ThisWorkbook
Application.ScreenUpdating = False
sPath = "C:\Users\bn2k\OneDrive \Desktop\BDO's Março\NIT\" 'Caminho de arquivos XLS
sFilename = Dir(sPath & "*.xls")
On Error Resume Next
Do While Len(sFilename) > 0
If sFilename <> ThisWorkbook.FullName Then
Set wbXLS = Workbooks.Open(sPath & sFilename) 'Abre arquivos
NbRows = wbXLS.Sheets(1).Range("A130:A139").Copy 'Num de linhas (favor ajustar qtd lin para seu caso)
Set rg = wb.Worksheets("AleVBA").Range("A600" & lindestino).End(xlUp).Row + 1
Cells(rg, 1).PasteSpecial
lindestino = lindestino + 1
wbXLS.Close False 'Fecha os arquivos
End If
sFilename = Dir
Loop
Application.ScreenUpdating = True
DisplayAlerts = True
End Sub


Enfim poderiam me ajudar, pois o código está comendo a primeira linha da última planilha aberta, e não colocando a mesma na linha em branco.

vc consegue mandar as planilhas que vc esta testando ? e coloca um caminho razoável para a gente poder testar melhor, tipo c:\guru\planilhas, assim basta a gente copiar e testar não precisamos ficar montando planilhas para tentar achar o erro.

Experimente após as alterações conforme abaixo.

substitua:
rg As Range ~~~> por ~~~> rg As Long

Set rg = wb.Worksheets("AleVBA").Range("A600" & lindestino).End(xlUp).Row + 1
por ~~~> rg = wb.Worksheets("AleVBA").Range("A600").End(xlUp).Row + 1

obs.
1. DisplayAlerts ~~~> deveria ser Application.DisplayAlerts
2. a variável lindestino pode ser excluída

Prezado Osvaldo sua resposta deu certo.

Porém veja se consegue me ajudar num novo problema.

Eu preciso também extrair a informação da data que fica dentro dos documentos que irão abrir e colocar, por exemplo, na coluna C "Data". Mas conforme os documentos estão sendo abertos e está sendo extraída as informações de: ("A130:A139"), eu gostaria que dentre essas informações ficasse também a informação da data localizada na célula O2 dos documentos abertos e também da descrição localizado entre ("B130:B139") e fosse inserida na coluna B "Descrição".

Desde já, agradeço pela ajuda.

ianbernardof escreveu: ↑20 Abr 2021 às 13:23 Eu preciso também extrair a informação da data que fica dentro dos documentos que irão abrir e colocar, por exemplo, na coluna C "Data".
... eu gostaria que dentre essas informações ficasse também a informação da data localizada na célula O2 dos documentos abertos ...

Essa descrição que você colocou aí acima eu não entendi.

Gostaria de extrair junto com as informações das planilhas que vão abrir a informação da data que consta dentro do arquivo também, porém na hora de extrair a data gostaria que a mesma ficasse ao lado das linhas que forem extraídas as informações das células A130 a A139. 22 997156216 número

Veja se entendi corretamente:

1. copia de A130:B139 da planilha de origem dos dados e cola na primeira linha vazia da coluna A da planilha destino
2. copia a data de O2 da planilha origem e cola em 10 células da coluna C da planilha destino, a partir da primeira linha vazia

Então no exemplo que você publicou acima, os dados de origem A130:B139 serão colados em A77:B86 e a data de O2 será repetida em C77:C86. É isso?

Quase...

1. copia de A130:A139 da planilha de origem dos dados e cola na primeira linha vazia da coluna A da planilha destino
2. copia de B130:B139 da planilha de origem dos dados e cola na primeira linha vazia da coluna B da planilha destino
3. copia a data de O2 da planilha origem e cola em C entre essas das 10 células da coluna C da planilha destino, se existir informações nas colunas A e B.

Na foto em anexo deixei como exemplo não tendo informações do dia 29/04 e como ficaria a data para os dados vinculados.

[img]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAjAAAAFJCAYAAACFNBf7AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAADC1SURBVHhe7d1Njuu6tYbhM5U7jRrAHUpN4E7E3QABAgRIL+nudg3i9E4/06grLpL2Wos/on5Mq7bfJ+CJbUkUpZK9vqI3Sn/897///X7H9q9//av6Oo1Go9FoWxr1ZH77z3/+8/22Aeaf//xn9XUajUaj0bY06sn89tYB5h//+Ef1dRqNRqPRtjTqyfz273//+30DzN///vfq6zQajUajbWnUk/ntf/7vf7//+Nvf/vZNo9FoNBqN9lOaBJjvN/XHH2976ACAE1FP5gvnnAADAMAB1JP5CDAAABxEPZmPAANgml+fywdO+ND5uH3/tfzv9vHxffsrLQR+MOrJfAQYAJP8+v7843P5rw8ywM9HPZlvZ4AJH0ThAyh+GK1L6+/+sNq6vzFccACAM1BP5qsEmBwWbPsw87wEGOD5trwXXftM75S/bt8f6nW77eLXp93u/h6t95u7bb4nm/1l4WujvLzxfnZjlvbYMXBJ4Tp9jZHPiazx/qu95+5Nf8078P6dSMaRHifpZKgPnr9uH3HF3R8iZZ9XEI4JuK6R92LnvZU/lO7LwofP40On9r4Or8UPPt9v/uDKH2ZpufoQ6/eXpDF9fMR1/UdKqw957WKfH4AWrtHXGPmcSFbef0HethqABrafSY4xPU7qH4j5O+s44Pxhlj+84jYft18qnVV+W1v6vOXvvs3yQCe70GqpL+0vn8TbzX2I5g/VWh+lsA5wXSPvxfo6Is+GVD9l8nvlEUCsst/qfov3Xqu/KH44LuvkcGXG1urDhyfgel5XT8r3amDfr1H//Rf1AszI9jPJ51t6nNRPhj2oeoB5nCz/QbS23Pe3rCEnv7E8n7x7f0Grz/aHXtgeuK50TXffi/V1hHqfFMu74Sbw/fr3l3u+2l+QtpF1yvd8r4/8YVz9rRC4gHB9vkb9M6AMIivvv6QdYMa2n0k+L9LjpH4y8odLN8CobeIHjptubi2vpbm0v/iS219eX4/RjC9q/yCisAy4rpH3YlrHNBXadYgJLfWV3xu1sBBV+jXjyMvje3K9v4V7jxbvz7S81sfaexl4tXB9vsbI50T5vPWear7XBrefKex/KMDYwZ4cYPIHV6V1A4z6oKueTP8DdMIy4LpG3ouNDy9PBRnZLr/n1gJM6rd8f6Xl+T252l9YJaxfCVd57J0+4rZ6xhW4lnB9vsbI58TA+y+p1tLF6PYzyedFepzUT4Yd/HMCjD9hD+sBptZH/kG0PvTCMuC6Rt6L9XWqdEC4B5r8HvZcv8WHVVru35Nr/VVbOpZmH/n9n48ZuJ5wLb/Ghs+JarPvq3qAGd9+Jtl/epyUJyMf0CMwnBxg7ien9eE3EGCKffgxlsIxAdc18l4s18nCuvpDKL7nHoE+P/e/CMRtWu/ZvH35nu321/glxX9Y5j70euUxA9cTrtHXGPicGHz/BbXXtmw/U9h3PcC4Zgd4doAJavvN/Y8EmMX9Nzi/fV1YB7iukfdifZ343sjvm0cr3zLpgy63+3u0fM/mD7HYd96vfY/V+8vjqPymVpl1KfpYmh83cDXhOn2Ntc+Jfe+/vdvPJMeaHr+dcPAAzpY+8EgdeCPUk/kIMABOJ7/F6dkb4DdHPZmPAAPgPOpr3Fd9Lw68AvVkPgIMAAAHUU/mkwCT/kOj0Wg0Go32c1oKM28nHDwAAEdRT+YjwAAAcBD1ZD4CDAAAB1FP5iPAAABwEPVkPgIMAAAHUU/mI8AMklsfXOQvi15pLAAAAswrbA8w+X4oRUv3QnDL/R+zsvc5qdxbIfH3QzH12t3zaG8tD9uOIsAAAFq21BOcQzJAerzbo6CGm0qpUCJB4/F8+M+Lh+3UejHM5JtFxRtX3YORBKZ2EOohwAAAzkCAme94gNEhRR7ru1LqQOPCzRZ6HxJY9D7ijeP21PPigpP9LCckNd2nDQ2VfYZx1e7cq5tsMLBtWuexrb3TJwEGAK4lfFZjLqmP6fEuvpjKcym4sQjfZ0pSCPnQhXm0CKvQUs7iuP1sYC+4JWD5WR/1fFuAsWFN+hre1u9rbSwAgFcjwMx3MMDEr3N8LY0hZmmq6EqR1jMwabZjvQ7bgFIGmLi/4wHGcbNJmwKM29YsG9rWz1TZQESAAYBrIcDMdyjAlGHCBhpZnguvBBj9VYgNJi1SrNU+yn2O9VPjL7g43mV/97YzwHQDx0iA0WPIjQADAFcVPqcxl9TG9HijcvalGy6KmYX14OHDi2gEoT313Fxwvt/DMzAhdOS2Mt5iW71+iQADANdCgJlvd4CJsxWu0FZDQC7WLrDIuv1ZiiK8CBec/D436AUYGY9/rkKDeZ4DSx5v6Eut63W39eepwo8FAPBaBJj5dgaYGCJqRTYW/kcz67iZCV2DTVGWMPFY79580ZemZ3W2Cdtreuwft9tyjO0As7wi5yCuv6wXxqwClz8PNoz1t80hprV9ORYAwCuFz2nMJbUxPX4dCSSPsDDLsy648qu0GDp6syoAgJ+LADPfJQJMKPivKO7PuuDKGZL1r4UAAD8XAWa+SwSYV3neBVd+BUR4AYDf1/PqCVqkvqbHb4cLDgBwBurJfBJg0n9oNBqNRqPtbJhLznt6/Ha44AAAZ6CezEeAAQDgIOrJfAQYAAAOop7MR4ABAOAg6sl8BBgAAA6insxHgAEA4CDqyXw7AkzlPj3qr87Gmzw+ltnbB+l7HK3cw8jdD2n0nkpbhG01GftvdI+h3+14AOCqfD3B80kGSI8HxQBTrYshWKh7AMUwk+5xJIFEhRZ53rr/UbjZoVpXAkt+7m4k6fvdgAADADgDAWa+cwOMp4KHFNPijsyN4FHc3FGtWwSfDeNxHhdc60//p/3e8mxQ2m9zBiiPJYasuNweYwx1flnYLjxub1eOsXJ+7uP8WIKkXlfPYPX6AQDsET5PMZfUsPR4kC+AvtAqOmwUwSMW61bwkBsiyvpxf7kAl0HILt/CX3DljEUOFG7cfpbp/jyfm8c5MTd2LIJZVm4Xg05eNy1XY7PLa+NM67gT7G80accPANiDADPfjgBj2UKqlcEihpLc4iyBq6/Gff1mYIjCes8MML0xLhupUBKP2XaxBLc83jRzU/ZX2U72nQJNNfio5Y1xFscj/fjAqfsBAOzh6wmeT/JBerxTvXhK+Oj+Zl/fLrLLYkiKRbYMMGVQGrU3wMTxpHAlbTDABCnEhO0eY24FmPRaMXsV6G0649Qvqn3bRoABgCPCZynmkvqVHu9T+a1+PbwsqkU56oaUYrta8R/jL7ihAOP3b2ZHBgLMne67FWDSeTX7yNRy09dDPcDUzzkAYD8CzHybA8yvz15YiYV4Nbykglt8vZSLbTUk5ALtinUnCK2pBhgz9kowcPuTcd+fbwkwet103lQQtGNJy1XHdnknwJh9x372zFYBANoIMPNtDjCxgIdim5oukH5ZbqGyphCSX/NF1ASYRQwGjfVNXzZQbRG2N1S/cX/1YKDH9nG7LesMBhh/fu4r5u3i/uJyH8r0sqWZYFIfZ3k88mIKS62+AABbhc9SzCX1Kz1+HSm0+2ZRjrjOBVcJPgCAH4MAM98lAkz4quMVX2sQYAAAZyDAzHeJAPMqBBgAwBkIMPMRYAAAOIh6Mp8EmPQfGo1Go9FoOxvmkvOeHr8dLjgAwBmoJ/MRYAAAOIh6Mh8BBgCAg6gn8xFgAAA46JX1xP8h2KPO7u9ZCDAAABz0unrS+Evsu53d3/MQYJSfkjoBANeyN8DIPetCIU7tXoJat+bxf7Ve364mcLftqZW0fDuc6h+Qdf01xxd09tXdbpGXH/kjttJ3elw1tJO1E22Wl/cuGj6QXj8DPzQvrKcRYAAAe/h6MiTUrSIstG+rU6tR4bVH7YyzJ/fnUjNdrZSA8vn9+VGvuaa/7vg6+xra7pf8AdfaGEZJvU+PnWM7uZ9ofwLl+Y4DGeonLfTrNhBgAABn2BVgPPlFvFG7qstC7WvVxcD/lff8PP5/WXNdf54ew+q+lOrYW2MY1wkw2Y6dqMFK8tLTW9UTtL6Pbj9bTqTSDzCVPsJ+8hjkGJf1780fEwDgXZwSYIpa9lD9BVvXpEVZJ21tleXSR6Pmuv4Kanxr+zKqx9VZf9BTAow50cXA42yJ/TkM7KPTz6YTqRwKMEq5fwDAOzkeYHp1a6xu1mpRqGuyjvzSnWtobV9rddMu7+7LaPW7tr91Twgw5YmWYBB2JO3j+2Ppb+0HUdPqZ/xEWqEfTfq/DyyOyYyzGmDUTBAA4C35erKV1J/GL8LVX5IrX8uU6+XaGv+ZxqOeVWpu9WueBz++9r5sB+3jGqv7PZIF0uOGbTupnmhj5wxM4RozMHYbAMA7OhJgeuFF1zpN6p5/sfimItex2IcUfN/Sfqv9JdXxNfeVni76x7Wn7lsy/vS4YctO6ifaKA462HEgup+BE1kTDl7bHGCqxwIAeDe+noyJdaZd5Jc1QrBo1Myyxrka3KxRvua2+uuNr7ev9eMqx7DdzgCTBueOtn6itXjA5YDrB9Ke3fD9jP7QrH6Acc/zP9q9/0DcPgEAb2tXgJFatdQV3x7FrF4zzb9ncXKtktb6SsjV3FZ/a+Nr7au7XTwmv6zMBetk2/TY6e2kFmB6J9pvn/UPpBog3Dp3Qz80K6yrlYFJj2/54YYfSg4wlR+Q2RQA8DZCDZil93XPHmf3N4vU3vT4WlqJ8EQzLzgAwO9rXj2JEwjn5Y2z+5vnsgEmJMJiluVkBBgAwBmoJ/NdNsDMwAUHADgD9WQ+AgwAAAdRT+aTAJP+Q6PRaDQabWfDXHLe0+O3wwUHADgD9WQ+AgwAAAdRT+YjwAAAcBD1ZD4CDAAAB1FP5iPAAABwEPVkPgLMK+hbEgAAfjwCzHy7Aky8aeOyoTT75/7tMv3nidP9k9SykXsvyP2JlnXNX+V190Xa+yeQw7Yv8eQAI+dsQ/9b1wcAWC+rJ29MMkB6POjX96cqdsUNF9WyGGZywNlxvwUp9J/L/nSAcTeNlJsqjt280ftdAwwAYC4CzHw7AowlIaVVjGWmJIeLrQEmrx//3wYWPeuzIxglxQXXnNmJ+8iv1/ev71ztApXpd1l28wFmrf/Qn7szttnG7s/eVXt9fHb9oDceAIAXPisxl9Sn9HgHNxvimbDhi6Ir8o4EIymqcbu8jzIw2eVb2AvOH8vyXPaTxq0KfG1mSR9PLUCYfsPx349htP/yPOZN/Dmp7b89vsb6zfEAADxbTzCDZIn0eJwEk1AUbaGzYiFsBYtuUZQZC1uw2wEmFuDDAaaY2UnMWLIQQnIgiOMzp0F/RVTbfm35Sv9yDvQLbuy1QNIcnzxV66+OBwDgEWDm2xdglFYQkaLogoYVZyJMYRW+4K4FGLt8iyLA1MbrwkGkx7gSEGrbry1f6f+pAWZ1PAAAjwAz3+EAE39jt7+dr4eXRWW7KH3FUmuhz6LA7i+uoc+7auFe7JghMQGhtv3a8pX+mYEBgGsx9QRTSC5Ij8eEAqeqoZ2BicWyFl5+ffZDji26WuzzMcPiZm5awWOAveBiv2Y/Mr50TP6Y72NfCwiuXwkI+ti39//UALM6HgCAR4CZb3uAyQUubChNBRMppHpZaqEY+mWuII4HmEUOAdL2zwyE7Y1mvzGE1Me+HhBsv0vQCM9NH9v6f26ACXrjAQB44bMSc0l9So9fRwr8vlmUI7jgAABnoJ7Md4kAE2YU9vwj3KO44AAAZ6CezHeJAPMqXHAAgDNQT+YjwAAAcBD1ZD4JMOk/NBqNRqPRdjbMJec9PX47XHAAgDNQT+YjwAAAcBD1ZD4CDAAAB1FP5iPAAABwEPVkPgIMAAAHUU/mI8CcoH0bhLqt6wMAro0AM9+OAOPvhWSLsdyn575M3x6gv11N7qv4K73m3kLuPj8bhG3PQIABgPd2Vj3BOMkA6fGgys0B7/IdnNMzU6h723n5Ds6/ZBsbYPKy9JrcyHDfDR0JMACAMxBg5js5wFgyg3IPNFsCTBa3MQHG3Xl5X79RccE1Z3biPvLrdv8+kFTGs3b35+Z+Q1hbwtktHHO5XwDANYTPaMwldTE9HuSLeWv2w82UDG+nxW10gLGhKCjXGRXG8eDHuzxP+/GBw4/hWIB57CewfccxEVwA4NpsPcEMkiXS413iv1NRBVZmSELR1UW6VGxXNRJgYiA4HGCKmZ1EZkd82ArB4vHasQDjyP7yOGKA6ZxGAMAFEGDmOxxgekW2H1JGivPEGRgXMu7c1zuPdl6AiedJ902AAYCfJHx2Yy6pl+nxPtUZimTvsrtKOClmSiqBYZC54LozMK0QFh0KMH6/Zn8EGAD4CQgw820OML8+beiQYpyLcyi+qtrqGZjudvl5UalrsyuuqLeCxwB7wcV+H/tansv4amOw/NjNcwkknWN145dlBBgA+FEIMPNtDjCx4IYim5oqzDlwPJar0NLdLhXuRyqRwm3WX9o9RORQIG1tFqctbG80+/XHtbRu+NLjX8JIOPbO+jG0xPZxuy3bEmAA4CcJn9+YS+pmevw65muTebjgAABnoJ7Md4kAE75q6n1F8yxccACAM1BP5rtEgHkVLjgAwBmoJ/MRYAAAOIh6Mp8EmPQfGo1Go9FotJ/TUph5O+HgAQA4inoyHwEGAICDqCfzEWAAADiIejIfAQYAgIOoJ/MRYAAAOIh6Mh8BZlB5u4DXudJYAAAEmFfYHmD8PY3uLd0KwC33f2E33uAxL2/fx8iu5+4HZO5ZtP9eQWHbUQQYAEDLlnqCc0gGSI93exTUcPNBFUokaDyeSyhxN3GsCtup9fRdreM+VDCSwLTvho4EGADAGQgw8x0PMDqkFDdl1IHGhZst9D4ksOh9xDtF76nnxQUn+1lOSGq6TxsaKvt0d5yO43z0JU02GNg2rfPY1t7okgADANcSPqsxl9TH9HgXX0zluRTcWITvMyUphHzowjxahFVoKWdx3H42sBfcErD8rI96vi3A2LAmfQ1v6/e1NhYAwKsRYOY7GGDi1zm+lsYQszRVdKVI6xmYNNuxXodtQCkDTNzf8QDjuNmkTQHGbWuWDW3rZ6psICLAAMC1EGDmOxRgyjBhA40sz4VXAoz+KsQGkxYp1mof5T7H+qnxF1wc77K/e9sZYLqBYyTA6DHkRoABgKsKn9OYS2pjerxROfvSDRfFzMJ68PDhRTSC0J56bi443+/hGZgQOnJbGW+xrV6/RIABgGshwMy3O8DE2QpXaKshIBdrF1hk3f4sRRFehAtOfp8b9AKMjMc/V6HBPM+BJY839KXW9brb+vNU4ccCAHgtAsx8OwNMDBG1IhsL/6OZddzMhK7BpihLmHisd2++6EvTszrbhO01PfaP2205xnaAWV6RcxDXX9YLY1aBy58HG8b62+YQ09q+HAsA4JXC5zTmktqYHr+OBJJHWJjlWRdc+VVaDB29WRUAwM9FgJnvEgEmFPxXFPdnXXDlDMn610IAgJ+LADPfJQLMqzzvgiu/AiK8AMDv63n1BC1SX9Pjt8MFBwA4A/VkPgkwX19f3+/Y5OBpNBqNRjuhYS457+nx2+GCAwCcgXoyHwEGAICDqCfzEWAAADiIejIfAQYAgIOoJ/MRYAAAOIh6Mh8BBgCAg6gn8+0IMJX79Ki/Ohtv8vhYZm8fpO9xtHIPI3c/pNF7Km0RttVk7L/RPYZ+t+MBgKvy9QTPJxkgPR4UA0y1LoZgoe4BFMNMuseRBBIVWuR56/5H4WaHal0JLPm5u5Gk73cDAgwA4AwEmPnODTCeCh5STIs7MjeCR3FzR7VuEXw2jMd5XHCtP/2f9nvLs0Fpv80ZoDyWGLLicnuMMdT5ZWG78Li9XTnGyvm5j/NjCZJ6XT2D1esHALBH+DzFXFLD0uNBvgD6QqvosFEEj1isW8FDbogo68f95QJcBiG7fAt/wZUzFjlQuHH7Wab783xuHufE3NixCGZZuV0MOnndtFyNzS6vjTOt406wv9GkHT8AYA8CzHw7AoxlC6lWBosYSnKLswSuvhr39ZuBIQrrPTPA9Ma4bKRCSTxm28US3PJ408xN2V9lO9l3CjTV4KOWN8ZZHI/04wOn7gcAsIevJ3g+yQfp8U714inho/ubfX27yC6LISkW2TLAlEFp1N4AE8eTwpW0wQATpBATtnuMuRVg0mvF7FWgt+mMU7+o9m0bAQYAjgifpZhL6ld6vE/lt/r18LKoFuWoG1KK7WrFf4y/4IYCjN+/mR0ZCDB3uu9WgEnn1ewjU8tNXw/1AFM/5wCA/Qgw820OML8+e2ElFuLV8JIKbvH1Ui621ZCQC7Qr1p0gtKYaYMzYK8HA7U/GfX++JcDoddN5U0HQjiUtVx3b5Z0AY/Yd+9kzWwUAaCPAzLc5wMQCHoptarpA+mW5hcqaQkh+zRdRE2AWMRg01jd92UC1RdjeUP3G/dWDgR7bx+22rDMYYPz5ua+Yt4v7i8t9KNPLlmaCSX2c5fHIiykstfoCAGwVPksxl9Sv9Ph1pNDum0U54joXXCX4AAB+DALMfJcIMOGrjld8rUGAAQCcgQAz3yUCzKsQYAAAZyDAzEeAAQDgIOrJfBJgvr6+vt+xycHTaDQajXZCw1xy3tPjt8MFBwA4A/VkPgIMAAAHUU/mI8AAAHAQ9WQ+AgwAAAdRT+YjwAAAcNAr64n/S/ZHnd3fsxBglJ/yQwMAXMvrAkzjVjK7nd3f86wGGLkh4LJS9y/ltu6BlG8PYJaX9y4a2kfQ68fda2nk5If1NAIMAGAPX09G5fpXrV2utlZrZFhH389uoBbm+/mN9NcdX2df3e0Ww3W/Q/pOj52Ywj5uv+SvxG7dyT0MyA9AhQ15nu97tGEfQ/2khX7dhnDwGgEGALCHrydDQgAowoKua6qOSVgo61qoW4/aOVALw2sfn9+fjZpr+lsdX2NfQ9vtyxZaJ8Bk8c/cb9qJOtEycJ0OZfD+h7C+j24/JswEY3+avx9gKn3IDz6NQY5xWf/e/DEBAN7FrgDj6ZAij3Vdq9VO99pqLczPWzW3tg9Fj29L3dXb3bXGMO4pAcYEgeIgwwnyBzmwj04/ZbgZG/OhAKOU+wcAvJNTAoyrc1KT5HmjprmatFYLZbkUtbH+Cmp8m+quO66os/6gJwSYMqDEH0JuH98fS38mGAzuo9VPLUCEddf6C/1o+wLMSmIFAPz2fD3Zrl4H73WvqD3l+t1aaGZ0avtaq8N2+XjdbfW7tr91cl7S44ZtO6kdlLVzBqZwjRkYuw0A4B0dDTBSS0x9sbVS6pz+ZbnytUy7FsZ/b/IoVZUaWf2a58GPb7TulseVjdXpnpMDTC2cOGdNJel+ij5jf2u54nCAqR4LAODdHAkwtSK/FhBkuS9yzVoYa7MUfN/SPqr9JdUQMlB32+ElsMezh4w/PW6o7SS+5g9WTkC3oMeTWA64fiA2UGi+HxecBoNFOHjN7888l3S6PL//MAbCGgDgLfh6MibV0lqR93Us1aBYc+J2Zf0ZrYW+5rb664yvu6/edpkfw3adABMHJyuoFneWBmeONq5fDCYXfrN91ttHOB/L87yPbj8Ls3zs36SEdbUyMOnxLT+Y8APKPxD5YeVlsZU/fADAOwg1YLNKHZGWionUJPX6ve5JvWv8kj5UC114aPW3Mr7mvrrb9ev+FrJtenwtvR/QScLBAwBw1Mx60vu6Z4+z+5vlsgEmnNA9iWwLAgwA4Azz6kmcPTkvb5zd3zyXDTAzEGAAAGegnsxHgAEA4CDqyXwSYL6+vr7fscnB02g0Go12QsNcct7T47fDBQcAOAP1ZD4CDAAAB1FP5iPAAABwEPVkPgIMAAAHUU/mI8AAAHAQ9WQ+Aswr6FsSAAB+PALMfLsCTLxp47KhNPvn/u0y/df90v2T1LKRP12c7wVh/iqvuf/C/r8gGLZ9iScHGDlnG/rfuj4AwHpZPXljkgHS40G/vj9VsTM3QAzBQi2LYSYHnB1/rlgK/eeyPx1g3E0j5aZRYzdv9H7XAAMAmIsAM9+OAGNJSGkVY5kpyeFia4DJ68f/t4FFz/rsCEZJccE1Z3biPvLr9f3rO2y6QGX6XZbdfIBZ6z/05+6Mbbax+zOhcmB8dv2gNx4AgBc+KzGX1Kf0eAc3G+KZsOGLoivyjgQjKapxu7yPMjDZ5VvYC84fy/Jc9pPGrQp8bWZJH08tQJh+w/Hfj2G0//I85k38Oantvz2+xvrN8QAAPFtPMINkifR4nASTUBRtobNiIWwFi25RlBkLW7DbASYW4MMBppjZScxYshBCciCI4zOnQX9FVNt+bflK/3IO9Atu7LVA0hyfPFXrr44HAOARYObbF2CUVhCRouiChhVnIkxhFb7grgUYu3yLIsDUxuvCQaTHuBIQatuvLV/p/6kBZnU8AACPADPf4QATf2O3v52vh5dFZbsofcVSa6HPosDuL66hz7tq4V7smCExAaG2/drylf6ZgQGAazH1BFNILkiPx4QCp6qhnYGJxbIWXn599kOOLbpa7PMxw+JmblrBY4C94GK/Zj8yvnRM/pjvY18LCK5fCQj62Lf3/9QAszoeAIBHgJlve4DJBS5sKE0FEymkellqoRj6Za4gjgeYRQ4B0vbPDITtjWa/MYTUx74eEGy/S9AIz00f2/p/boAJeuMBAHjhsxJzSX1Kj19HCvy+WZQjuOAAAGegnsx3iQATZhT2/CPco7jgAABnoJ7Md4kA8ypccACAM1BP5iPAAABwEPVkPgkwX19f3+/Y5OBpNBqNRjuhYS457+nx2+GCAwCcgXoyHwEGAICDqCfzEWAAADiIejIfAQYAgIOoJ/MRYAAAOIh6Mh8B5gTt2yDUbV0fAHBtBJj5dgQYfy8kW4zlPj33Zfr2AP3tanJfxV/pNfcWcvf52SBsewYCDAC8t7PqCcZJBkiPB1VuDniX7+CcnplC3dvOy3dw/iXb2ACTl6XX5EaG+27oSIABAJyBADPfyQHGkhmUe6DZEmCyuI0JMO7Oy/v6jYoLrjmzE/eRX7f794GkMp61uz839xvC2hLObuGYy/0CAK4hfEZjLqmL6fEgX8xbsx9upmR4Oy1uowOMDUVBuc6oMI4HP97ledqPDxx+DMcCzGM/ge07jongAgDXZusJZpAskR7vEv+diiqwMkMSiq4u0qViu6qRABMDweEAU8zsJDI74sNWCBaP144FGEf2l8cRA0znNAIALoAAM9/hANMrsv2QMlKcJ87AuJBx577eebTzAkw8T7pvAgwA/CThsxtzSb1Mj/epzlAke5fdVcJJMVNSCQyDzAXXnYFphbDoUIDx+zX7I8AAwE9AgJlvc4D59WlDhxTjXJxD8VXVVs/AdLfLz4tKXZtdcUW9FTwG2Asu9vvY1/Jcxlcbg+XHbp5LIOkcqxu/LCPAAMCPQoCZb3OAiQU3FNnUVGHOgeOxXIWW7napcD9SiRRus/7S7iEihwJpa7M4bWF7o9mvP66ldcOXHv8SRsKxd9aPoSW2j9tt2ZYAAwA/Sfj8xlxSN9Pj1zFfm8zDBQcAOAP1ZL5LBJjwVVPvK5pn4YIDAJyBejLfJQLMq3DBAQDOQD2ZjwADAMBB1JP5JMCk/7xlAwDgKOrJfKmOl4WdRqPRaDQa7dIthZm3Ew4eAICjqCfzEWAAADiIejIfAQYAgIOoJ/MRYAAAOIh6Mh8BBgCAg6gn8xFgBpX3O3qdK40FAECAeYXtAcbflPHe0r2M3HJ/i4B4h+q8vH0jRrueu6Ghueni/psdhm1HEWAAAC1b6gnOIRkgPd7tUVDD3ZNVKJGg8XguocTdhboqbKfWi2HG3qH5HowkMO27IzUBBgBwBgLMfMcDjA4pxV2ldaBx4WYLvQ8JLHoff33fPvbNwhQXnOxnOSGp6T5taKjsM4xLh7PaTJVsMLBtWuexrb1TNwEGAK4lfFZjLqmP6fEuvpjKcym4sQjfZ0pSCPnQhXm0CKvQUs7iuP1sYC+4JWD5WR/1fFuAsWFN+hre1u9rbSwAgFcjwMx3MMDEr3N8LY0hZmmq6EqR1jMwabZjvQ7bgFIGmLi/4wHGcbNJmwKM29YsG9rWz1TZQESAAYBrIcDMdyjAlGHCBhpZnguvBBj9VYgNJi1SrNU+yn2O9VPjL7g43mV/97YzwHQDx0iA0WPIjQADAFcVPqcxl9TG9HijcvalGy6KmYX14OHDi2gEoT313Fxwvt/DMzAhdOS2Mt5iW71+iQADANdCgJlvd4CJsxWu0FZDQC7WLrDIuv1ZiiK8CBec/D436AUYGY9/rkKDeZ4DSx5v6Eut63W39eepwo8FAPBaBJj5dgaYGCJqRTYW/kcz67iZCV2DTVGWMPFY79580ZemZ3W2Cdtreuwft9tyjO0As7wi5yCuv6wXxqwClz8PNoz1t80hprV9ORYAwCuFz2nMJbUxPX4dCSSPsDDLsy648qu0GDp6syoAgJ+LADPfJQJMKPivKO7PuuDKGZL1r4UAAD8XAWa+SwSYV3neBVd+BUR4AYDf1/PqCVqkvqbHb4cLDgBwBurJXP/zf/8r7Y+vr6/vd2yS3mg0Go1GO6FhnnuASc/fDhccAOAM1JO5CDBccACAE1BP5iLAcMEBAE5APZmLAMMFBwA4AfVkLgIMFxwA4ATUk7kIMFxwAIATUE/m2hlgKvfp+Xz81dl4k8fHMrUo/IlatWzlHkbufkij91TaImyrydj3dnZBv9vxAMBV+XqC5zoUYKp1MQQLdQ+gGGbSPY4kkKjQIs9b9z8KNztU60pgyc/djSR9vxsQYAAAZyDAzHV+gPFU8JBiWtyRuRE8ips7qnWL4LNhPM7jgmv96f+031ueDUr7bc4A5bHEkBWX22OMoc4vC9uFx+3tyjFWzs99nB9LkNTr6hmsXj8AgD3C5ynmORRgHgXQF1pFh40ieMRi3QoeckNEWT/uLxfgMgjZ5Vv4C66csciBwo3bzzLdn+dz8zgn5saORTDLyu1i0MnrpuVqbHZ5bZxpHXeC/Y0m7fgBAHsQYObaGWAsW0i1MljEUJJbnCVw9dW4r98MDFFY75kBpjfGZSMVSuIx2y6W4JbHm2Zuyv4q28m+U6CpBh+1vDHO4nikHx84dT8AgD0IMHOdEmBaxVPCR/c3+/p2kV0WQ1IssmWAKYPSqL0BJo4nB7HQBgNMkEJM2O4x5laASa8Vs1eB3qYzTv2i2rdtBBgAOCJ8lmKecwJM5bf69fCyqBblqBtSiu1qxX+Mv+CGAozfv5kdGQgwd7rvVoBJ59XsI1PLTV8P9QBTP+cAgP0IMHPtCjC/PnthJRbi1fCSCm7x9VIuttWQkAu0K9adILSmGmDM2CvBwO1Pxn1/viXA6HXTeVNB0I4lLVcd2+WdAGP2HfvZM1sFAGgjwMy1bwZGCngotqnpAumX5RYqawoh+TVfRE2AWcRg0Fjf9GUD1RZhe0P1G/dXDwZ6bB+327LOYIDx5+e+Yt4u7i8u96FML1uaCSb1cZbHIy+msNTqCwCwVfgsxTz7AswzSKHdN4tyxHUuuErwAQD8GASYuS4TYMJXHa/4WoMAAwA4AwFmruvMwLwIAQYAcAYCzFwEGC44AMAJqCdz3QPM19fX9zu2cMHRaDQajXZGwzzMwHDBAQBOQD2ZiwDDBQcAOAH1ZL5wzgkwAAAcQD2ZjwADAMBB1JP5CDAAABz0ynri/5L9UWf39ywEGOWn/NAAANfyugDTuJXMbmf39zyrAUZuCLis1P1Lua17IOXbA5jl5b2LhvYR9Ppx91oaOflhPY0AAwDYw9eTUbn+xeZuqTNS1/T99oKBbfL9/Ko11/Vnx+f66+yru91iuO53SN/psRNT2Mftl/yV2K07uYcBCR0qbMjz/EPasI+hftJCv25DOHiNAAMA2MPXkzFL7VJhwdagsboWtnnUzoFtwmsfn8t+6zXX9BcCShFmBuru0Hb7soXWCTBZ/DP3m3YiqSweiAxcp0MZvP8hrO+j24+cOJ1cx/40fz/AVPqQH3wag0ueI4EJAPB72hdgLFPnhuqaq6er2+Tn8f/Lmlurz4qq7Zvqrt7urjWGcU8JMCYIFAcZ05c9yIF9dPopw83YmA8FGKXcPwDgnRwPMLGm5bo1VNdcTVrbRpZLUWvUyEaNu1N1eFPdLep30Fl/0BMCTBlQJBiEHUn7+P5Y+jPBYHAfrX5qASKsu9Zf6EfbF2BWEisA4Lfn68kwKe6prqmCs17XyrrZ3UZmQXKIqNXctTpsl4/X3Va/a/tbJ+csPW7YtpPaQVk7Z2AK15iBsdsAAN7R7gCjSC0bneGofC3T3ib+e5NHqarUyOrXPA9S61Tfo3XXb/dQX3+LkwNMLZw4Z00l6X6KPmN/a7nicICpHgsA4N2cEWBMiFipaxIgfJFrbhNrsxR831JNq/aXVEPIQN1th5cgrv+CABNf8wcrJ6Bb0ONJLAdcPxAbKDTfjwtOg8EiHLzm92eey4W1PL//MAbCGgDgLfh6MiTUFVVEbA3t1bUyLESjtdDX3FZ/qdZXQ8j6+NrhJfBj2K4TYOLgZAXV4s7S4MzRxvWLweTCb7bPevsI52N5nvfR7Wdhlo/9m5SwrlYGJj2+5QcTfkD5ByI/rLwstvKHDwB4B6EGbJdq6b2OuNrVqmvyei2YLIZqoQsPrf4qdU5atS6rfXW369f9LWTb9Phaej+gk4SDBwDgqJn1pPd1zx5n9zfLZQNMOKF7EtkWBBgAwBnm1ZM4e3Je3ji7v3kuG2BmIMAAAM5APZmPAAMAwEHUk/kkwHx9fX2/Y5ODp9FoNBrthIa55Lynx2+HCw4AcAbqyXwEGAAADqKezEeAAQDgIOrJfAQYAAAOop7MR4ABAOAg6sl8BJhX0LckAAD8eASY+XYFmHjDqWVDafbP/dtl+q/7+Xs+LG3gT//J/YmWdc1f5TX3X9j/FwTDti/x5AAj52xD/1vXBwBYL6snb0wyQHo86Nf3pyp2xQ0X1bIYZnLA2fHniqXQfy770wHG3TRSbho1dvNG73cNMACAuQgw8+0IMJaElFYxlpmSHC62Bpi8fvx/G1j0rM+OYJQUF1xzZifuI79e37++w6YLVKbfZdnNB5i1/kN/7s7YZhu7P3tX7fXx2fWD3ngAAF74rMRcUp/S4x3cbIhnwoYviq7IOxKMpKjG7fI+ysBkl29hLzh/LMtz2U8atyrwtZklfTy1AGH6Dcd/P4bR/svzmDfx56S2//b4Gus3xwMA8Gw9wQySJdLjcRJMQlG0hc6KhbAVLLpFUWYsbMFuB5hYgA8HmGJmJzFjyUIIyYEgjs+cBv0VUW37teUr/cs50C+4sdcCSXN88lStvzoeAIBHgJlvX4BRWkFEiqILGlaciTCFVfiCuxZg7PItigBTG68LB5Ee40pAqG2/tnyl/6cGmNXxAAA8Asx8hwNM/I3d/na+Hl4Wle2i9BVLrYU+iwK7v7iGPu+qhXuxY4bEBITa9mvLV/pnBgYArsXUE0whuSA9HhMKnKqGdgYmFstaePn12Q85tuhqsc/HDIubuWkFjwH2gov9mv3I+NIx+WO+j30tILh+JSDoY9/e/1MDzOp4AAAeAWa+7QEmF7iwoTQVTKSQ6mWphWLol7mCOB5gFjkESNs/MxC2N5r9xhBSH/t6QLD9LkEjPDd9bOv/uQEm6I0HAOCFz0rMJfUpPX4dKfD7ZlGO4IIDAJyBejLfJQJMmFHY849wj+KCAwCcgXoy3yUCzKtwwQEAzkA9mY8AAwDAQdST+STAfH19fb9jk4On0Wg0Gu2EhrnkvKfHb4cLDgBwBurJfAQYAAAOop7MR4ABAOAg6sl8BBgAAA6insxHgAEA4CDqyXwEmBO0b4NQt3V9AMC1EWDm2xFg/L2QbDGW+/Tcl+nbA/S3q8l9FX+l19xbyN3nZ4Ow7RkIMADw3s6qJxgnGSA9HlS5OeBdvoNzemYKdW87L9/B+ZdsYwNMXpZekxsZ7ruhIwEGAHAGAsx8JwcYS2ZQ7oFmS4DJ4jYmwLg7L+/rNyouuObMTtxHft3u3weSynjW7v7c3G8Ia0s4u4VjLvcLALiG8BmNuaQupseDfDFvzX64mZLh7bS4jQ4wNhQF5Tqjwjge/HiX52k/PnD4MRwLMI/9BLbvOCaCCwBcm60nmEGyRHq8S/x3KqrAygxJKLq6SJeK7apGAkwMBIcDTDGzk8jsiA9bIVg8XjsWYBzZXx5HDDCd0wgAuAACzHyHA0yvyPZDykhxnjgD40LGnft659HOCzDxPOm+CTAA8JOEz27MJfUyPd6nOkOR7F12VwknxUxJJTAMMhdcdwamFcKiQwHG79fsjwADAD8BAWa+zQHm16cNHVKMc3EOxVdVWz0D090uPy8qdW12xRX1VvAYYC+42O9jX8tzGV9tDJYfu3kugaRzrG78sowAAwA/CgFmvs0BJhbcUGRTU4U5B47HchVautulwv1IJVK4zfpLu4eIHAqkrc3itIXtjWa//riW1g1fevxLGAnH3lk/hpbYPm63ZVsCDAD8JOHzG3NJ3UyPX8d8bTIPFxwA4AzUk/kuEWDCV029r2iehQsOAHAG6sl8lwgwr8IFBwA4A/VkPgIMAAAHUU/mkwCT/vOWDQCAo6gn86U6XhZ2Go1Go9FotEu3FGbeTjh4AACO+vPPP9MjzBLOOQEGAIADCDDz/fnnn9//DzUmf/nsW5xXAAAAAElFTkSuQmCC[/img]

No seu código, na linha abaixo, substitua A por B conforme em vermelho.

NbRows = wbXLS.Sheets(1).Range("A130:B139").Copy

Quanto à colocação da data na planilha destino, eu enviei a "imagem" que você postou para a NASA, vão tentar decifrar.

Segue o documento de destino, até a linha 6 seria o modelo de como eu gostaria que fosse visada a informação

#
Acrescente a linha em vermelho, conforme abaixo.

Cells(rg, 1).PasteSpecial
Cells(rg + 4, 3) = wbXLS.Sheets(1).Range("O2").Value