Macros/Finding missing and complete addresses

Hi All, I have a problem and hopefully could get some help. I'm trying to analyze some data from customers where it finds how many phones were missing, zip codes, city, states etc.. However, im having trouble finding a solution to find complete addresses and tally it. I have 2 address columns and one either has a PO box or a normal address. With my code, if one address cell is empty, it will consider it as an incomplete address but we all know it is still a whole and complete address. I hope I explained my issue as clear as possible and please let me know if you have questions. Example and code in attachment. Thanks and appreciate any help.

Hi Venkat1926, thanks for your reply and appreciate your help. I tried running your script and macro but I get an error that says Subscript is out of range. It might be my computer but I'm not sure exactly what that means.