You are missing a path separator
Dim ThePath As String
ThePath = "G:\NARS Planning\Open Order Reports"
ActiveWorkbook.SaveAs Filename:=ThePath & Application.PathSeparator & "NARS Open Order Report " & Format(Date, "mm.dd.yy") & ".xlsx", FileFormat:=xlOpenXMLWorkbook
or
Dim ThePath As String
ThePath = "G:\NARS Planning\Open Order Reports" & Application.PathSeparator
ActiveWorkbook.SaveAs Filename:=ThePath & "NARS Open Order Report " & Format(Date, "mm.dd.yy") & ".xlsx", FileFormat:=xlOpenXMLWorkbook