Column adding extra numbers!

How's everyone doing? I was hoping to get some help from you VB gurus.

I have some VBA code that scans columns to the right every 3 columns. If a value is in the column, it should add a number to a new column (G:G). So, if there are 12 columns, with a number in 4 of them, G:G would display "1, 2, 3, 4."

There's just one thing that's bugging me. if there are less than 13 columns, it will throw 13 in as well. So, if there are only 12 columns (with data in 3 of the columns), you end up with "1, 2, 3, 13" when it should only be "1, 2, 3."

I'm a pretty big VBA noob, so any help would be greatly appreciated. Thank you. Here's my code:

Please Login or Register  to view this content.