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]

Do you just want to copy col A, or do you want to copy the other columns as well?

 

[chaddres]

the other ones as well, Fluff.

 

[Fluff]

Ok, how about

Sub chaddres()
   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("ALrowTE")
   End With
End Sub

 

[chaddres]

Fluff, now I have this:

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
Sheets("Sheet 2").Select
Range("A2").Select
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("ALrowTE")
End With
ActiveSheet.Paste

Where am I wrong? I get an error on the Intersect line. I appreciate your help!!!

 

[Fluff]

What is the error message?
Also when posting code please use code tags. How to Post Your VBA Code

 

[chaddres]

The error says "Can't execute code in break mode". I attached a picture.

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
Sheets("Sheet 2").Select
Range("A2").Select
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("ALrowTE")
End With
ActiveSheet.Paste

 

[chaddres]

Sorry. The error is "Run-time error 1001: application-defined or object-defined error"

 

[Fluff]

Do you have a named range called ALrowTE on the Time Export sheet?

 

[chaddres]

Fluff, THANK YOU SO MUCH!!!!! I figured it out. The last range in the Intersect was wrong (my fault). I was also missing a Select.Copy and where to paste the data. You're a lifesaver!

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
    Sheets("Sheet 2").Select
    Range("A2").Select
    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
    Selection.Copy
    Sheets("Time Export").Select
    Range("A" & LrowTE).Select
    ActiveSheet.Paste
    
End Sub