セルに、今日の日を入力(YYYYMMDD)

Sub InsertTodayDate()
    Range("A1").Value = Format(Date, "YYYYMMDD")
End Sub