کمک در پر کردن سطر های خالی با عدد بالایی آن

[Radin]

سلام در فایل پیوست توضیح دادم که چی میخوام لطفا کمک کنید
پیوست

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Radin]

سلام نمی دونم چرا کد زیر جواب نمی ده

sub fillrows
for each c in range("a1:a20")
 if  isempty(c) then
c=c.offset(-1,0)
end if
next
end sub 

[hr]
سلام حل شد یک value اضافه شد و حل شد

Sheet1.Select
For Each c In Range("a1:a30")
If IsEmpty(c.Value) Then
c.Value = c.Offset(-1, 0).Value
End If
Next 

[Abrand]

Sub ss1()
'
' ss1 Macro
'

'
Range("A1:A33").Select
Range("A33").Activate
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "=R[-1]C"
End Sub

ببين اين به دردت ميخوره يانه (فقط ارتباط ماكروت رو به كليد بده)