Copy and paste range

[Sharid]

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,

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

 

[Sharid]

Super, this one has done the trick, thanks for helping me out