Offset

[sbaxter4]

Excel 2007 - Is there a way to use the offset function so as the list grows the marco will sort. Right now I have this:
Range("A2:C4").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2:A4"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A2:C4")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

 

[Excelestial]

Not a VBA specialist...but the offset formula for growing a list is:

=OFFSET(A2,0,0,COUNTIF(A2:A200,">"""),1) ...by your dimension.

Perhaps you can code to this. G'luck.