Copy Active worksheet data and paste in closed workbook in specific sheet

Hi
Seeking someone help to create VBA code. I have data in one worksheet (Active worksheet)

starting from B5 (right column not fixed, end of row not fixed)

I need VBA code to open specific folder ( desktop) and last modified Excel file, in last modified Excel file, I need to paste this data on Sheet "TB" on row C5.

After completion of pasting,

I need to rename the excel file with "-1"( example if file name is "sample", I need to rename as "sample-1"

Please help me to create VBA code

I found the below code to find latest file in folder and its working fine for me

Can someone help me to make little changes as per my above requirement,

I have data in one worksheet (Active worksheet),starting from B5 (right column not fixed, end of row not fixed) i need to copy this data to latest modified file sheet "TB" opened with the below code. once the copy process done, the latest modified excel file to be renamed with +1. Please help

Please Login or Register  to view this content.

From a few examples code that I gave you,
I think you should try to do the above situation by yourself .

Hi Sintek. Thank you so much for your help

I am getting runtime error "76" at the below line
For Each File In Fso.GetFolder(Path).Files

I am changing path at this line \Desktop\FolderName\. Please correct if i am wrong

Hi Sintek i tried with existing code and few lines of your code its working fine. But while saving the file i am getting error on the below line. Can you please help me to correct.


.SaveAs Fso.GetBaseName(Latestfile) & "-1"

Please Login or Register  to view this content.

Thanks Sintek found one more issue, after renaming the excel file, its by default saving in "Documents" folder instead the Folder Path given can you check that

You are never going to learn if you do not try @ thanks for your advice