Set wbSatai = Workbooks.Open(strMacroPath) 
wbSatai.Sheets(cIryou).Range(Cells(6, intCol), Cells(37, intCol + 17)).Copy 
Application.DisplayAlerts = False 
wbSatai.Close savechanges:=False 
Application.DisplayAlerts = True 

Set wbShori = Workbooks.Open(strShoriPath) 
wbShori.Sheets(cIryou).Select 
wbShori.Sheets(cIryou).Range("A40").PasteSpecial xlPasteAll 
Application.DisplayAlerts = False 
wbShori.Close savechanges:=True 
Application.DisplayAlerts = True
I am using the code above to copy a range of cells from workbook wbSatai to workbook wbShori. It works fine but the problem is that from wbSatai the copied cells has lots of merged cells but when pasted to wbShori the cells are unmerged. Another thing is that one column in wbSatai is of percentage format. The original values are something like 69.12541254 but what you see on the workbook is 69.13% now the problem is that when I pasted it on wbShori the value becomes 69.13 with a little green arrow on the side. I know there is not much changed but the thing is that I will be using the pasted values to another worksheet on wbShori so to get the exact value is very important. How can I copy and paste the values to another sheet and make the format and values the same. I thought xlPasteAll should have done the work but its not working.

The 2 workbooks has the same filename but is located on a different folder so I cant open them simultaneously and do the comparison. Any help would be greatly appreciated. What am I doing wrong.