Ending in Macros

[Evil with a K]

I am unfamiliar with the writing MACROs I rely specifically on recorded
macros. My issue is I format and consolidate a large number of excel files
prior placing it into access. The issue I have is when I recorded the macro
it stops at a certain point in the record. As the the records get larger and
larger the macros eithetr stop on a certain area or overwrite an area based
on my recorded keystrokes. Soooooo, How do I get the maco to encompass the
whole column with out writing 65000 into the macro (i am using 40235 below).
currently I am using this:
Cells.Select
Cells.EntireColumn.AutoFit
Columns("A:A").Select
Range("A1:AQ40235").Sort Key1:=Range("A1"), Order1:=xlDescending, Header
....

 

[Dave Peterson]

Maybe...

With activesheet.usedrange
.columns.autofit
.sort key1:=.columns(1), ....

End with

 

[Dave Peterson]

Maybe...

With activesheet.usedrange
.columns.autofit
.sort key1:=.columns(1), ....

End with

 

[Gord Dibben]

Dim Lrow as Long

Lrow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Range("A1:AQ" & Lrow)Sort Key1:=Range("A1"), Order1:=xlDescending, Header


Gord Dibben MS Excel MVP

 

[Gord Dibben]

Dim Lrow as Long

Lrow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Range("A1:AQ" & Lrow)Sort Key1:=Range("A1"), Order1:=xlDescending, Header


Gord Dibben MS Excel MVP