copy/paste a cell into last row using vba

[sheter]

Trying to create a timesheet to track hours on projects.

I'd like to be able to have VBA code that will copy cell A1 (which has =now() in it) and then find the last row of column "D" and paste the value without formatting.

Can this be done?

I've attached my file for reference.


Thanks,

sC.tt

 

[YasserKhalil]

Hello try this code

Sub Test()
    Dim lr As Long
   
    With Sheets("Sheet1")
        lr = .Cells(Rows.Count, "D").End(xlUp).Row + 1
        .Range("D" & lr).Value = .Range("A1").Value
    End With
End Sub

 

[sheter]

YasserKhalil,
I JUST now saw your reply to my question. This is perfect!! Thank you!!

 

[YasserKhalil]

You're welcome. Glad I can offer some help

 

[Marc L]

Hi !

Same but without any variable just in a single codeline :​

Sub Demo1()
    Sheet1.Cells(Rows.Count, 4).End(xlUp)(2).Value = Sheet1.[A1].Value
End Sub

Do you like it ? So thanks to click on bottom right Like !
​

 

[sheter]

THanks Marc! I'll check it out