Move row then add a date

[GWHarvey]

I have a spreadsheet to track all of our projects so any new projects get entered in the "NewProject" sheet and from there when a particular letter is entered in column 12 then that row is moved (copied and deleted). This all works great.

My question is how can I add a date to another column, say column 13 (M). The problem is it puts the date on the last blank line which might not be the correct line. As shown in yellow

Newproject sheet:

Project	Phase	Sub	Client	Type	Description	PM	Priority	Rec'ed Date	Deadline Date	Days Left	Start
000-00000-001	000	00	Sample	Sketch		GWH	Rush	02/06/19	02/10/19	4

<tbody>
</tbody>

Precalc Sheet:

Project

Phase

Sub

Client

Type

Description

PM

Priority

Rec'ed Date

Deadline Date

Days Left

Start

Precalc Rec'ed Date

111-11111-111

000

00

Sample

Siteplan

GWH

Rush

02/06/19

02/10/19

4

02/06/19

000-00000-01

000

00

Sample

Sketch

GWH

Rush

02/06/19

02/10/19

4

C

<tbody>
</tbody>

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Columns(12)) Is Nothing Then
If UCase(Target.Value) = "C" Then
Range("A" & Target.Row).Resize(1, 12).Copy Sheets("Precalc").Cells(Rows.Count, 1).End(xlUp)(2)
Target.EntireRow.Delete
Sheets("Precalc").Cells(Rows.Count, 13).End(xlUp)(2) = Date

ElseIf UCase(Target.Value) = "F" Then
Range("A" & Target.Row).Resize(1, 12).Copy Sheets("Field").Cells(Rows.Count, 1).End(xlUp)(2)
Target.EntireRow.Delete

End If
End If
End Sub


I am not sure what to use instead of the xlup.

Thanks for any help

 

[Fluff]

Hi & welcome to MrExcel.
try

Sheets("Precalc").Cells(Rows.Count, 12).End(xlUp).Offset(, 1) = Date

 

[GWHarvey]

Perfect thanks

 

[Fluff]

You're welcome & thanks for the feedback