Sharid
Well-known Member
- Joined
- Apr 22, 2007
- Messages
- 1,066
- Office Version
- 2016
- Platform
- Windows
I'm a bit suck on this one,
In need some help please to work this one out.
I need to copy ALL DATA on sheet2 Range A-M and paste it in next blank row on sheet1 column B so all the copied data will sit in columns B to N
And I need Todays date going into column A for each row that has been copied over,
Thanks for having a look
In need some help please to work this one out.
I need to copy ALL DATA on sheet2 Range A-M and paste it in next blank row on sheet1 column B so all the copied data will sit in columns B to N
And I need Todays date going into column A for each row that has been copied over,
Code:
Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Set copySheet = Worksheets("Sheet2")
Set pasteSheet = Worksheets("Sheet1")
copySheet.Range("A1:M1").Copy
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
Thanks for having a look
