问 VBA宏编译错误

EN

我试图编写一个简单的VBA宏，该宏将接受活动单元格的列和用户的输入，以便在一行中添加一系列单元格。通过将用户输入的整数添加到活动列，即end列，计算范围。问题是，当我运行它时，它会给我一个“编译错误:无效限定符”，并对‘总计’行感到愤怒。

这是我的密码。我刚开始学习VBA，但不可能是hard....right吗？

Sub Food()
Dim first As Variant
Dim last As Integer
Dim days As Integer
Dim month As Range
Dim total As Double
first = ActiveCell.Column
days = InputBox("Days in the month?")
last = first + days
Set month.Value = Range(Cells(first, 4), Cells(last, 4))
total.Value = WorksheetFunction.Sum(month)
Worksheets(1).Cells(1, 13).Value = total
End Sub