flyt linie og skiv dato

Hej

Nu skal jeg have hjælp

Jeg har en funktion der flytter nogle linier til et andet ark.
Men når linien er flyttet vil jeg gerne have sat dags dato med i kolonne M

Private Sub Worksheet_Activate()
Dim r As Long
Dim c As Range
Dim tmp() As Variant
For Each c In Range("F2:F" & Range("F" & Rows.Count).End(xlUp).Row)
    If c.Value = "Gennemført" Then
    tmp() = Cells(c.Row, 1).Resize(1, Cells(c.Row, Columns.Count).End(xlToRight).Column).Value
    c.EntireRow.Delete
   
    With Worksheets("Gennemført")
      r = .Cells(Rows.Count, 3).End(xlUp).Row + 1
      .Cells(r, 1).Resize(1, UBound(tmp, 2)) = tmp

' Det er så her den også skal sætte noget i kolonne M
' for eksempel  FormatDateTime(Date, vbShortDate)
   

End With
  End If
Next
End sub