پرسش پر کردن اطلاعات یک ستون از روی اطلاعات سلول های زیرین

[تولایی]

سلام وقت بخیر
من برای یک کاربرگ حسابداری یک مشکل دارم.
نیاز دامر تا در دو تا از ستون ها اطلاعات را از سلول های زیر خودش کپی کنه. ماننده فایل پیوست.
اگر میخواستم اطلاعات را از سلول های بالا کپی کنم می تونستم از قسمت Find ---> Go to Special ---> Blanks میتونستم اطلاعات را از بالا به پایین کپی کنم ولی الان نیاز دارم تا اطلاعات را از پایین کپی کنم.
در فایل پیوست دس ستون سند و تاریخ هر سند از تعدادی رکورد تشکیل شده که در آخرین رکورد شماره سند و تاریخ را آورده است و نیاز است تا شماره سند و تاریخ در مقابل همه رکورد های هر سند کپی شود. شایان ذکر است که فایل زیر فقط نمونه است و فایل اصلی خیلی بزرگتر است.
با تشکر از اساتید گرامی

[misammisam]

سلام

Private Sub CommandButton1_Click()
EndRow = Sheet1.Range("E:E").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookAt:=xlWhole).Row

ChangeStart = 2
NextRow1 = Sheet1.Range("E" & ChangeStart & ":E" & EndRow).Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Row
ChangeEnd = NextRow1
Range("F" & NextRow1 & ":E" & NextRow1).Copy
Range("F" & ChangeStart & ":E" & NextRow1).PasteSpecial
ChangeStart = NextRow1 + 1


Do While (NextRow < EndRow)
NextRow = Sheet1.Range("E" & ChangeEnd & ":E" & EndRow).Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Row
Range("F" & NextRow & ":E" & NextRow).Copy
Range("F" & ChangeStart & ":E" & NextRow).PasteSpecial
ChangeStart = NextRow + 1
ChangeEnd = NextRow + 1
Loop

End Sub 

[smartman]

۱- یک ستون ردیف به جدول اضافه کن. (از ۱ تا آخرین رکورد)
۲- از مسیر Home>Sort & Filter>Custom Sort دوستون «ردیف» و «شماره سند» را همزمان بهصورت نزولی (Z->A) مرتب کن.
۳- با انتخاب Blank Cells شماره سند و تاریخ سند را از بالا کپی کن.