Shouldn't this code create a new worksheet from the active one?

It does create a new sheet,
but just copies the current clipboard to it.

ActiveSheet.Select
ActiveWorkbook.Sheets.Add After:=Worksheets(1)
ActiveWorkbook.Worksheets(2).Paste

Thanks,
Peter