alternative to Select/activate - to delete all data in a worksheet

[ItalianPlatinum]

Hello - i am trying to improve my VBA and speed it up by removing all instances of select and activate. one issue i am having is converting the below:

Workbooks("t.xlsx").Activate
sheets("main").Activate
Range("A2:X2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete
ActiveWorkbook.Close SaveChanges:=True

i thought this would work but it doesn't seem to be:

Workbooks("t.xlsx").sheets("main").Range("A2:X2").End(xlDown)).Delete
ActiveWorkbook.Close SaveChanges:=True

 

[ItalianPlatinum]

Yes but which column will always have data on the last row?

X. do i just need to change it from x1up to x1down?

 

[Fluff]

Ok, use

With Workbooks("t.xlsx").Sheets("main")
   .Range("A2", .Range("X" & Rows.count).End(xlUp).Row).Delete
End With

 

[ItalianPlatinum]

Ok, use

With Workbooks("t.xlsx").Sheets("main")
   .Range("A2", .Range("X" & Rows.count).End(xlUp).Row).Delete
End With

ok thanks x1down worked too. not sure if better to stay with x1up or not? your thoughts?

 

[Fluff]

I always use xlUp, If you have blank cells in the data xlDown will stop at the blank & not cover all the data.

 

[ItalianPlatinum]

M

I always use xlUp, If you have blank cells in the data xlDown will stop at the blank & not cover all the data.

my data file could be 100,000 lines I guess would speed play a role in either? is one faster over the other

 

[Fluff]

No difference.

 

[ItalianPlatinum]