sat işlevini son satıra yazdırabilme

[Carpintero]

Merhabalar, aşağıda koşulu sağlayan verileri A3 ten itibaren yaz diyoruz.
Ben ise; A3 ten itibaren en son boş hücreye yazdırmak istiyorum.
Bu mümkün ise yardımlarınızı bekliyorum.

Sub makro1()
sat = 3

For i = 3 To 20

If Cells(i, "E") = "deneme" Then
Cells(sat, "A") = Cells(i, "E")
sat = sat + 1

End If: Next i
End Sub

 

[Mustafa MUTLU]

Sub makro1()
sat = Range("A65536").End(3).Row + 1
For i = 3 To 20
If Cells(i, "E") = "deneme" Then
Cells(sat, "A") = Cells(i, "E")
End If
Next i
End Sub

 

[Carpintero]

Teşekkür ederim Mustafa Bey ellerinize sağlık.
Bende aşağıdaki yordamı denemiştim ve hata almıştım.

sat = Range("A999999").End(xlUp).Offset(1, 0)

 

[Mustafa MUTLU]

Teşekkür ederim Mustafa Bey ellerinize sağlık.

Rica ederim.
İyi geceler.