Sorting VBA Simplification

Perhaps you could do it this way - you could play with the strings for the setups:

Sub SUV(SgDV As String, SgSort As String)
Range(SgDV).Sort Key1:=Range(SgSort), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal:End Sub

Call SUV("SgDV_TestGrp","SgSort_TestGrp")
Call SUV("SgDV_Product","SgSort_Product")
Call SUV("SgDV_Machine","SgSort_Machine")
Call SUV("SgDV_SampleType","SgSort_SampleType")