Remove this For loop which loops all columns in table - Remove only that two lines,

For cols = 1 To oTable.Columns.Count [place cols = 1 to n - whatever column number you want to run for]
Next cols

Btw it's Yoh and not Joh :|