Google Script to convert my Excel VBA Functions into Google Sheet app scripts

Question

I am trying to convert my Excel VBA Function into Google Sheet app scripts function.

Sub Fan32()

Dim TheData, EOF, EOL, CurrentCell, counter, SkipCell \' Set