Adding Date in VBA?

[nobodyukno]

Ok so I have two workbooks, in one workbook my macro works perfectly and this is what its supposed to do:

It moves to a certain sheet and pastes what I have copied to the last open row. Then in column A of the last row where the stuff was pasted, it puts the date.

It works fine on my one workbook, but I have a similar workbook where I wanted to do the same thing, and it does the pasting part, but its not adding the date. Anyone see any problems with this code:

Sheets("Line").Select
lMaxRows = Cells(Rows.Count, "B").End(xlUp).Row
Range("B" & lMaxRows + 1).Select
ActiveSheet.Paste
lMaxRows = Cells(Rows.Count, "A").End(xlUp).Row
Range("A" & lMaxRows + 0).Value = Date
Sheets("Daily").Select

Application.CutCopyMode = False

[Pauleyb]

No, nothing obvious. Recommend removing the '+ 0'. It should work, but why have it? And then stepping through the code to see what value you are getting for IMaxRows (maybe there is a cell way at the bottom of column A?)

[hulpeloos]

maybe you should work with below solution

Please Login or Register  to view this content.