Trying to get a value to remain copy into a cell and remain the same when condition met

upload a small sample file with DUMMY data in it.

we don't need to see any actual data, just data. Also include your desired outcome.

Thanks

Enclosed.. I used the actual T & U columns so you may need to scroll over

Sorry for the delay, I only have time to help while at work.

So here put in the sheet you need it on. Enter Final in the cell and doubleclick it

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim r As Range
Dim n As Range
Dim d As Range
Set r = ActiveCell
If r.Value Like "Final" Then
Application.ScreenUpdating = False
Set n = Range("T73")
n.Copy
Set d = r.Offset(1, 0)
d.Select
Selection.PasteSpecial Paste:=xlPasteValues, _
    Operation:=xlNone, _
    SkipBlanks:=False, _
    Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True
End If
End Sub

Let me know how it goes.

Close! Hm. Should have mentioned some other things I suppose. I didn't realize this would be so complicated! I was hoping it was more of a simple answer than this.

1) The value will not always be in T73. It will always be in Column T, but it will move down as items are added above it. ...

Ok. I'll upload load the actual one after a bunch of editing out...

Where is the Final word going to go in this new sheet? Will that move down as well? Why not move T73 to a spot that won't move?

Because I have a lovely boss that wants it this way? If it's not really doable, just let me know. I can continue to manually update it. And one of these days.. I really will learn VB! I keep promising myself!

Currently I'm using in row 73 for May -> =IF(Y11="Final", "UPDATE", "") to remind me to manually update it. Right now Final will rest in row 11, but it will move at some point.

Holy cow!

Shadowlost, your request has been a learning experiance for me. I'm a big VBA rookie, but helping people helps me so its win win. Please try the following code in the sheet you have all your data in. For that top row were you put final, just double click it and the code should do the rest. It works fine on your sample sheet so let me know if you hit any snags.

This has been good fun!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim r As Range
Dim n As Range
Dim D As Long
Set r = ActiveCell
If r.Value Like "Final" Then
Application.ScreenUpdating = False
Set n = Range("T" & Cells.Rows.count).End(xlUp)
n.Copy
Range(n, ActiveCell).Select
D = Selection.Columns.count
n.Offset(0, D - 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, _
    Operation:=xlNone, _
    SkipBlanks:=False, _
    Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True
End If
End Sub

Yay! It seems like it's working