VBA - Sort with dynamic range

Dim col As Long
Dim fil As Long
Dim rango As String

fil = Worksheets(hoja).Cells(Worksheets(hoja).Rows.Count, "A").End(xlUp).Row
col = Worksheets(hoja).Range("A1").End(xlToRight).Column

rango = Range(Cells(1, 1), Cells(fil, col)).Address
Worksheets(hoja).Range(rango).Sort Key1:=Worksheets(hoja).Columns("A"), Order1:=xlAscending, Header:=xlYes