Código en vba para sacar días entre 2 fechas

tengo un reporte con formulas para sacar los dias transcurridos me podrian ayudar con un codigo en vba      =SI($A2="NACIONAL",1000,SI($A2="PEDIMENTO",1000,HOY()-$B2)) el resultado va en la columna M y la otra formula es

=SI(M2=1000,"MEXICANA  "&(HOY()-B2)&" Dias",SI(Y(M2>=1,M2<=17),"VIGENTE  "&(HOY()-B2)&" Dias",SI(Y(M2>=18,M2<=22),"PROXIMA A VENCER  "&(HOY()-B2)&" Dias","VENCIDA  "&(HOY()-B2)&" Dias"))) el resultado va en la columna N gracias saludos