It would become
[VBA]Dim arrayOfColumnNumbers
arrayOfColumnNumbers = Array(1, 2, 4, 7, 10)

If IsNumberic(Application.Match(ActiveCell.Column, arrayOfColumnNumers,0)) Then
' etc.[/VBA]