وعليكم السلام ورحمة الله وبركاته
استبدل
nm.Range("B1").PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone,SkipBlanks:=False, Transpose:=False
الى
nm.Range("B1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,SkipBlanks:=False, Transpose:=False
وللاستفاده يمكنك الاطلاع على هذا الرابط