Not using formulas.

You could use a macro and run it whenever you want...

Option Explicit
Sub testme()

Dim wks As Worksheet
Dim FromCell As Range
Dim ToCell As Range

Set wks = Worksheets("sheet1")

With wks
Set FromCell = .Range("N8")
Set ToCell = .Cells(.Rows.Count, "M").End(xlUp).Offset(1, 0)

ToCell.Value = FromCell.Value
FromCell.ClearContents 'maybe???
End With

End Sub


chisigs2 wrote:

No one with an idea?

--

Dave Peterson