Code:
bNumOfEntries = Application.CountA(Sheet1.Range("a:a")) - 1
740 Application.StatusBar = "Archiving Short Sale Entries..."
750 rngDataSet.Copy
760 wkbkArchive.Sheets(1).Cells(bNumOfEntries + 1, 1).PasteSpecial xlPasteValues
770 rngDataSet.EntireRow.Delete xlShiftUp
780 wkbkArchive.Close True '--Close and save
it keeps pasting over itself?