По какой-то причине первый случай «Сельский» работает, а «Городской» и «WHS» - нет. Я попытался удалить первый, чтобы посмотреть, делает ли он что-то, что делает другие два не работающими, но потом ничего не работает. Я не знаю, если это из-за операторов if внутри или это ошибка в случаях.
For i = 4 To lRow2
Area = Sheet7.cells(i, 11).Value
Select Case Area
Case Is = "Rural"
For j = 29 To lcol
If [something]
Do something
End if
Next j
Case Is = "Urban"
For j = 29 To lcol
If [something]
Do something
End if
Next j
Case Is = "WHS"
For j = 29 To lcol
If [something]
Do something
End If
Next j
End Select
Next i