Filing Macro - Simple ... It would seem

not seeing data it is just guessing. I expect in column E you have different values than you expect.

Try:

Else
       amount = .Cells(cddate.Row, "E")
       Msgbox .Cells(cddate.Row, "E") & " | " & amount
End If

PS. Thread title shall be "executive summary of the problem - some people do use http://www.excelforum.com/search.php - think of them writing title pls.