VBScript to Sort a range by row

[mipszzz]

I have been searching Google and this forum but have not found a solution that works for me. Hopefully someone can help. I have very little scripting experience but I am really good at copying and pasting!

I have a spreadsheet listing servers with a series of columns listing their features. I need to sort the features range for each row with a script. I can of course manually highlight the range of features for row 1, then sort it. Then move to row 2 and repeat. I want to be able to do this in a script. in addition, the number of servers in each spreadsheet can differ so I need to the script to be able to repeat the process until it runs out of servers listed in column 1

Any guidance would be greatly appreciated!

HostName	O/S	IP	Feature1	Feature2	Feature 3
Server1	Srv2008	10.0.40.10	DC	DNS	DHCP
Server2	Srv2003	10.0.40.11	File	Print	DFS
Server3	Srv2012	10.0.40.12	Exchange	IIS
Server4	Srv2012	10.0.44.10	Exchange	IIS
Server5	Srv2003	10.0.44.11	File	Print	DFS

<tbody>
</tbody>

 

[joemeshuggah]

maybe something like this? sheet name would need to be modifiedSub Macro1()
'
Application.ScreenUpdating = False
'Get Last Row

LastRow = Range("A1000000").End(xlUp).Row

'Sort
For i = 2 To LastRow
Range("D" & i & ":F" & i).Select
ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add Key:=Range("D" & i), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet2").Sort
.SetRange Range("D" & i & ":F" & i)
.Header = xlNo
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
Next i
Application.ScreenUpdating = True
End Sub

 

[mipszzz]

THANKS!!!

That worked the first time 'round