Compile Error: Sub or Function not defined

[ryancgarrett]

What is wrong with this code? I can't get it to run at all and I've gone through it over and over again. It seems like it should be pretty simple.

Sub COGS()
Dim todayTotal As Long
Dim acctgWarehouse As Long
Dim monthToDate As Long
Dim curRow As Integer

todayTotal = InputBox("Cost of Goods Sold?")
acctgWarehouse = InputBox("000 Warehouse?")
curRow = 7

Do While Cells(curRow, 4).Value = Empty
curRow = curRow + 1
Loop

Cells(curRow, 4).Value = todayTotal + Sum(Range("D7:D" & curRow)) + acctgWarehouse


End Sub

 

[VoG]

Try

Cells(curRow, 4).Value = todayTotal + WorksheetFunction.Sum(Range("D7:D" & curRow)) + acctgWarehouse

 

[ChrisM]

Change:

Do While Cells(curRow, 4).Value = Empty

To:

Do While IsEmpty(Cells(curRow, 4))