Currently i uses the range to select all information in the excel file that i open.
But i realize that the range is always changing. I need to select all and not the range. Any Ideas?

Public Sub SortRange1()

Dim range1 As Object
range1 = xlSheet.Range("A2:AO872")
range1.Sort(Key1:=range1.Columns(1), order1:=Excel.XlSortOrder.xlAscending)

End Sub