I haven't actually tested your code, but I can make a few comments about it.
1. It is not a good idea to name a procedure using one of vba's 'special' words. So 'pastespecial' is not a good name for a procedure.
2. You have 'Dim'd lsheets, but not myDate, myfile or mypath. I think it is a good idea to Dim all variables. You can force yourself to do that by putting Option Explicit right at the top of your Module. And you can make that happen automatically by, in the VB window...
Tools|Options...|Editor tab|tick 'Require variable declaration'|OK
3. ThisWorkbook.SaveAs myfile & Path
This line appears to have two errors:
a) You have used 'path' when I think you meant 'mypath'
b) The path should come before the file name
So this should have abetter chance of success:
BTW, what version of Excel are you using?