Add Today's Date And User Name

Hi,

I have the following vba code that loop through worksheets and pull the row(s) of data into summary worksheet.
Range of row data , that is pulled through all worksheets is A27:AQ27 and in the next column "AR" I get the current date and in the column "AS" I get the username of the system.

Meanwhile this task (Getting Current Date & UserName) is performed in isolated vba code (I have highlighted the code with blue fonts), that I have accomodated in this vba code because I dont know how to put code for current date and username after this line of code.
Worksheets("Summary 4").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)

But the Problem in the below HIGHLIGHTED code is that whenever the macro is run, it changes the old date with current date (The day when macro ran).
Like suppose if a user ran macro on 8th Aug 13. The Column AR will fill down side by side with rows of data with current date.
If after someday user again ran macro then the date 8th Aug 13 is changed with current day date.

I dont want it to change the old date, whenever macro is run.

Can anyone please get me out of this problem ? Here is the code

Please Login or Register  to view this content.