I am attempting to sort column D in ascending order in an excel file with VBA. I would like to expand the selection for all values in Column A-F.
I've used this formula as a starting point:
sort ascending/descending vba excel
It only sorts one column and in descending order. I am having trouble finding more examples.
LastRow = .Cells(.Rows.Count, "D").End(xlUp).Row
If (.Range("D2").Value > .Range("D" & CStr(LastRow))) Then
xlSort = xlAscending
End If
.Range("D2:D" & LastRow).Sort Key1:=.Range("D2"), Order1:=xlSort, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal