Вместо букв, вставь подходящие, цифры таким образом, чтобы частное соответствовало условию

К сожалению вы не написали условие.
на VBA эта задача решается банальным перебором, вот для 1-го примера:
sub ppp()
for A = 1 to 9
for b = 0 to 9
if (A*10000+b*1000+254)/73 = xxx then 'тут условие которое вы не написали
msgbox(A*10000+b*1000+254)
endif
end sub