Sub demo()
Dim wksDest As Excel.Worksheet
Dim rngSrc As Excel.Range
Dim rngDest As Excel.Range
Dim rngCell As Excel.Range
Set rngSrc = Selection
With ThisWorkbook.Worksheets
Set wksDest = .Add(After:=.Item(.Count))
wksDest.Name = Format$(Now, "dd-mm-yyyy_hh-mm-ss")
End With
Set rngDest = wksDest.Range("A1")
For Each rngCell In rngSrc.Cells
rngDest.Value = rngCell.Value
Set rngDest = rngDest.Offset(1)
Next
Set rngDest = Nothing
Set rngSrc = Nothing
Set wksDest = Nothing
End Sub