چرا بعد از کپی یا کات و پیست، با کد زیر
Set rng = Sheet_hazer.Range(Cells(2, 10), Cells(3, 12))
rng.Select
rng.Copy
Cells(2, 13).Select
Sheet_hazer.PasteSpecial
Sheet_hazer.Range(Cells(2, 10), Cells(3, 10)).Value = ""
با تشکر قبلی




کامنت