При создании приведенной ниже формулы с ошибкой компиляции
Sheet2.Range("A1:A8").Formula = "=if(Sheet1!A1>Sheet1!" & Cells(1, SecondCol).Address(0, 0), 1, 0