aktar makrosuda hata

[tatarcık]

arkadaşlar
aşağıdaki aktarma makrosu akfarma yapıyor yapmasına ama aktardığı sayfada ise bordro olduğundan (formüllü) bordronun bittiği yere aktarma sağlıyor
ben ise bu aktarmayı
b8 den(Sheet=bordo) başlayarak yapmasını istiyorum
b465 'e (sheet=bordro) kadar bilgi var


Sub Deftere_Aktar2()
Set s9 = Sheets("bordro")
sonsat = s9.[c65536].End(3).Row + 1
s9.Cells(sonsat, "B") = [E3]
s9.Cells(sonsat, "C") = [E2]
s9.Cells(sonsat, "D") = [e1]
s9.Cells(sonsat, "E") = [E4]
s9.Cells(sonsat, "F") = [n30]
MsgBox ([e1] & " isimli personele Geçici Görev Yolluğu Toplu Bordro Ödemesine Kaydedilmiştir.")
End Sub

 

[leumruk]

Merhaba,

Sub Deftere_Aktar2()
Set s9 = Sheets("bordro")
sonsat = s9.[c65536].End(3).Row + 1
if sonsat < 8 then sonsat = 8
s9.Cells(sonsat, "B") = [E3]
s9.Cells(sonsat, "C") = [E2]
s9.Cells(sonsat, "D") = [e1]
s9.Cells(sonsat, "E") = [E4]
s9.Cells(sonsat, "F") = [n30]
MsgBox ([e1] & " isimli personele Geçici Görev Yolluğu Toplu Bordro Ödemesine Kaydedilmiştir.")
End Sub

Daha kesin bilgi için örnek dosya ekleyiniz.