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.?
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.?