Sub Test()
Dim j, i, endrow, Result As Integer
Range("B3").Select
MsgBox (endline)
For i = 1 To 2 * endline
i = i + 1
Cells(3, i).Select
If Cells(3, i) > 2 Then
endrow = ActiveCell.End(xlDown).Row
Else
endrow = 4
End If
For j = 4 To endrow
Result = [COLOR="Red"]Cells(j, i)[/COLOR].Value
Select Case (Result > 0)
Case Result = 2 ^ 0
[COLOR="red"]Cells(j, i + 1).[/COLOR]Value = "Switch Error"
(...)
End Select
Next
Next
End Sub