yulka6464, вместо
Код:
Worksheets("Вычисления").Range("f29") = ""
лучше использовать
Код:
Worksheets("Вычисления").Range("f29").ClearContents
И с циклом разберитесь: увеличение аргумента
Cells(j + i, 4) - ничем не обосновано.
Вместо функции СЧЕТЕСЛИ() в Office 2010 используйте СЧЁТЗ()