sondan bir önceki satıra gitmek

[ildizim]

ActiveCell.SpecialCells(xlLastCell).Select
Selection.Cut
Range("A6").Select
ActiveSheet.Paste

yukardaki kodla son satırı kesip a6 ya yapıştırıyorum şimdi son satıdan bir önceki satırı a6 ya yapıştırmam gerekiyor bu kodu nasıl uyarlayabiliriz.?

 

[zafer]

Merhaba


ActiveCell.SpecialCells(xlLastCell).Offset(-1, 0).Select

 

[ildizim]

harikasınız sizdeki bilgiler bende olsa inan bulunduğum yerde en az genel müd. yardımcısı olurdum. teşekkürler...

 

[zafer]

:mutlu: :mutlu: :hihoho: :hihoho:

nerde.............

 

[ildizim]

ip'den bulursun