Macro/VBA. Copying data from an old file, Pasting in new template, and saving as the old name.

[oosag23]

[TABLE="width: 310"]
<tbody>[TR]
[TD="width: 414, bgcolor: transparent"]Directory C:/dbasexls start with first file 16h0001-JR.xls
[/TD]
[/TR]
[TR]
[TD="width: 414, bgcolor: transparent"] unprotect the worksheet using password '<BHF>'
[/TD]
[/TR]
[TR]
[TD="width: 414, bgcolor: transparent"] copy and paste e90:m387 from the .xls file to the .xlsx
[/TD]
[/TR]
[TR]
[TD="width: 414, bgcolor: transparent"] file hospitalCR_FY11_Rev0117_macro disabled.xlsx in
[/TD]
[/TR]
[TR]
[TD="width: 414, bgcolor: transparent"] Directory C:/dbasexlsx
[/TD]
[/TR]
[TR]
[TD="width: 414, bgcolor: transparent"] return cursor to ctrl home
[/TD]
[/TR]
[TR]
[TD="width: 414, bgcolor: transparent"] protect the worksheet using password '<BHF>' and
[/TD]
[/TR]
[TR]
[TD="width: 414, bgcolor: transparent"] save the file as 16h0001-JR.xlsx (a macro free file)
[/TD]
[/TR]
[TR]
[TD="width: 414, bgcolor: transparent"] close the file 16h0001-JR.xls and
[/TD]
[/TR]
[TR]
[TD="width: 414, bgcolor: transparent"] repeat with the next file in C:dbasexls 16h1001.xls
[/TD]
[/TR]
[TR]
[TD="width: 414, bgcolor: transparent"][/TD]
[/TR]
[TR]
[TD="width: 414, bgcolor: transparent"] The goal is to copy and paste e90:m387 from the old .xls file

[/TD]
[/TR]
[TR]
[TD="width: 414, bgcolor: transparent"] to the template hospitalCR_11_Rev0117_macro disabled.xlsx file

[/TD]
[/TR]
[TR]
[TD="width: 414, bgcolor: transparent"] and to save the template file as the same name as the old file,

[/TD]
[/TR]
[TR]
[TD="width: 414, bgcolor: transparent"] but with the extension .xlsx. Repeat this for all FY16 and 17 .xls files.

[/TD]
[/TR]
</tbody>[/TABLE]

Any assistance is much appreciated.