Copy data from one sheet to new sheet in Excel using VBA

Option Explicit

Sub NewCode()
'
' NewCode Macro
'

'
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Sheet1").Name = "Sheet1"
    Range("A1").Select
    ActiveSheet.Paste
End Sub