Cut and Paste is VERY Slow!!!

Hi, I am running a very simple macro to rearrange data in a large worksheet (70K+ rows). Problem: When I do a simple cut and paste (of ONE CELL, to move it up ONE ROW!!) that takes about 6-7 SECONDS for each individual cut and paste!! What is going on??? I tried turning calculation to manual - no change. The cell that is being moved contains text ("yes" or "no") and it has no dependents (nor does the cell it is being pasted into). Why in the world does it take so long for a SINGLE-CELL CUT AND PASTE?
Code is simply:

DataSheet.Cells(FoundRow + counter, 8).Cut DataSheet.Cells(FoundRow + counter - 1, 8)

This one line of code takes 6 or 7 seconds to execute!

I already have screen updating, calculation, and display alerts disabled. There are no event macros in the subject sheet. Status bar is not displayed.
So my 6-second cut and paste is after disabling all of these things.

You may have problem with other formulas in your worksheet.

Unfortunately (1) the cells I'm moving have specific conditional formatting that has to go with them, so I can't just assign the value to another cell, and (2) these are not contiguous cells that I'm moving; they are scattered along the sheet and I'm using the FIND method to locate (and then move) each one individually.
Thanks for the attempts to help, I finally just bit the bullet and spent about 5 hours running the macro on successive chunks of the spreadsheet.

I was just hoping someone who understands the working of Excel could explain why a single-cell cut and paste operation, on a cell containing a short text string, with no dependent cells, in a sheet with no event macros (or any other macro code) would take 6-7 seconds to run.

Try copying to an adjacent cell and then clearing the source cell:

    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False

    With DataSheet.Cells(FoundRow + counter, 8)
        .Copy .Offset(-1)
        .Clear
    End With

    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True

Artik