Братцы, помогите, пожалуйста, правильно записать условие;
Мне нужно выполнить код только если в ячейке D6 бдет написано "Учетный день"
If Cell ("contents", R6C4) = "Учетный день" Then ...

пишет compile error - sub or function not defined

Помогите, пожалуйста, правильно записать код макроса.
Необходимо в активную ячейку поместить сумму ячеек текущей строки, начиная со столбца D и заканчивая предыдущим столбцом для неё.
То есть что-то похожее на ActiveCell = Application.Sum ( Range ( "D & ActiveCell.Row : Offset (ActiveCell.Column-1, ActiveCell.Row)" )) только правильно записанное    
Просьба не кидаться тапками - я не программирую на VBA профессионально. Заранее благодарю