VBS Merge Macro with adding feature

[satomma]

My Macro should merge all xlsx files from a directory and add a column at the end of files merged, with filename where they come from, trunked.

What's wrong with what I wrote?

Please Login or Register  to view this content.

It gives me error in the underlined line..

Thanks for help

[patel45]

you wrote Cells(Lastrow, LastRow2 + 1).Valure = Left("FileName", 6)
instead of Cells(Lastrow, LastRow2 + 1).Value = Left("FileName", 6)