A Today helyett lehet használni a Date belső változót, így nincs szükség sem a helyfoglalásra, sem a formátum megadására. A Date formátuma "yyyy.mm.dd." , ponttal a végén, ami a mentési formátumon is módosít, a kiterjesztés hozzáfűzését nem ponttal kell kezdeni.

Sub Masol()
    Dim Path As String, FileName As String
    Path = "E:Eadat" 'itt add meg a saját elérési utat
   
    Range("H3:H200").Copy Range("C3:C200") 'itt megváltoztathatod a tartományt
    FileName = Path & "Leltár_" & Date & "xls"
    ActiveWorkbook.SaveAs FileName:=FileName, FileFormat _
        :=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
End Sub