Самый простой способ это проверять цвет ячейки. Если он серый то пропускать его, иначе вводить значение. Пишешь два цикла
Do while ActiveSheet.Cells(i,1).value<>“”
Do while ActiveSheet.cells(1,j).value <>“”
И внутри if ActiveSheet.cells(i,j).Interior.Color <> RGB(,,) then.
Но это не быстро работать будет, потому что работаете с листом. Быстрее будет с массивом. Там позамороченнее.