Error in Code

I am trying to split apart long macro into smaller macros to make it easier to follow and update
the code works in full macro but when break I of into smaller piece it breaks
sates that viable is not defined but in the full code it is still not definded

Smaller piece

Please Login or Register  to view this content.

Thank you that fix that error but no Im running into a new problem

I need this code (or a code) that will look in 3 sheets and only return the values off of the "BAS Sheet" if the values are not found on either or both o h other sheets and return it on "Unaccounted For" sheet starting on F1 and working its way down until all values that do not match are listed on these sheet.

my Sheet Names are
"BAS Sheet" Range to look in A:A
"Barcode Sheet" Range to look in A:A
"Fire" Range to look in B:B
"Unaccounted For" if value doesn't match on either then insert into F1:F

I hope it make sence

MatchRow stay equal to 0 through out the whole macro causing it to return all values back

I commented out the On Error and made sure that on all three sheet thy had the same number as the first cell3 and I get Type Mismatch error 13

I was able to get past this by converting all letters in the columns that the Match Function ran on to Numbers thank you for your help