Help with Last Cell VBA

[chaddres]

What am I doing wrong with the code in red? I want to select Cell A2 on Sheet 2 and then select the data in A2:A LRowS1 (the last row in that column). Thank you so much for any guidance.

Sheets("Macro Workbook").Select
Range("A1").Select
'Sheets.Add After:=ActiveSheet
'Sheets("Sheet5").Select
'Sheets("Sheet5").Name = "Time Export"
Sheets("Sheet 1").Select
Range("A:A,C:C,D:D,G:G,H:H,P:P,V:V").Select
Selection.Copy
Sheets("Time Export").Select
ActiveSheet.Paste
Range("A1").Select
LRowTE = Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Sheet 2").Select
Range("A2").Select
LRowS1 = Cells(Rows.Count, 1).End(xlUp).Row
Range("A2:A&LRowS1,C2:CLRowS1,D2:DLrowS1,G2:GLrowS1,H2:HLrowS1,P2:PLrowS1,V2:VLrowS1").Select
Selection.Copy
Sheets("Time Export").Select
Range("ALrowTE").Select
ActiveSheet.Paste

 

[Fluff]

Glad you sorted it, but you have some redundant lines that could lead to problems, try

Sub Macro1()
'
' Macro1 Macro
'

'
    Sheets("Macro Workbook").Select
    Range("A1").Select
    'Sheets.Add After:=ActiveSheet
    'Sheets("Sheet5").Select
    'Sheets("Sheet5").Name = "Time Export"
    Sheets("Sheet 1").Select
    Range("A:A,C:C,D:D,G:G,H:H,P:P,V:V").Select
    Selection.Copy
    Sheets("Time Export").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    LrowTE = Cells(Rows.Count, 1).End(xlUp).Row + 1
    With Sheets("Sheet 2")
      Intersect(.Range("A2", .Range("A" & Rows.Count).End(xlUp)).EntireRow, .Range("A:A,C:D,G:H,P:P,V:V")).Copy Sheets("Time Export").Range("A" & LrowTE)
    End With
    
End Sub