Sub tri()
Dim a
a = Range('G65536').End(xlUp).Row
Range('A5:H' & a).Select
Selection.Copy
Range('A5:H' & a).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.Sort Key1:=Range('G5'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub