The simplest way is to not use VBA at all, but to use a pivot table. Copy your sheet, select from A3 down to AXXX, then use Go To... Special / Blanks OK. Then type =, press the up arrow key once, press Ctrl-Enter, and then copy column A and pastespecial values. Then select columns A:G and insert a pivot table. Use Employee ID as the row field, Service as the column field, and service as the data field, set to count. And you will have a nice summary of your values.