Set rng = NwSht.Range("A1:G8", NwSht.Range("G65536").End(xlUp)).Select
rng.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
rng.Columns.AutoFit
NwSht.Range("A1").Select
NwSht.Activate

Not working, what am I doing wrong?

says object required on the first line above.