İlk dolu hücreye kadar veri çoğaltma

[kaos3]

Arkadaşlar Merhaba

Siteyi ve İnterneti araştırdım ancak yapmak istediğim işlemi bir türlü bulamadım.
Ekteki dosyadaE1 hücresindeki veriyi altta dolu olan ilk hücreye kadar doldursun istiyorum ancak ilk dolu hücre değişkenlik gösteriyor makro ile nasıl yapabilirim yardımcı olabilir misiniz?

 

[Haluk]

Sub Test()
    NoE = Range("E" & Rows.Count).End(xlUp).Row - 1
    Range("E2:E" & NoE) = Range("E1")
End Sub

.

 

[kaos3]

Sub Test()
    NoE = Range("E" & Rows.Count).End(xlUp).Row - 1
    Range("E2:E" & NoE) = Range("E1")
End Sub

.

Haluk Bey Çok teşekkür ederim Tamda istediğim gibi oldu.