Hello from Steved

The Below formula is in Cell B6

Question is it possible to have this in visual basic, the reason I ask is
that I cut a paste and need to retype the formula each time, i do the pasting.

=IF(ISNA(VLOOKUP(--A6,'All Bus Models'!$A$5:$E$5000,4,FALSE)),"Out Of
Service",VLOOKUP(--A6,'All Bus Models'!$A$5:$E$5000,4,FALSE))
Thanks