Dúvida sobre VBA! Help!!!!!

[Sahara]

Olá, estou com um problema em relação a uma macro que estou a tentar alterar, porque pretendo aumentar os campos no excel, e por isso mesmo tb tenho de aumentar os campos no VBA, mas não percebo a lógica que o programador quis dar, portanto não sei que continuidade dar.

o While PDO <> ""
nUH = ActiveSheet.Cells(rowIndex, "D").Value
nUHLigadas = 0
TotS32_1 = 0
TotS32_2 = 0
TotS32_3 = 0
TotS32_4 = 0
TotS32_5 = 0
TotS32_6 = 0
TotS32_7 = 0
TotS32_8 = 0
TotS32_9 = 0
TotS8_1 = 0
TotS8_2 = 0
TotS8_3 = 0
TotS8_4 = 0
TotS8_5 = 0
TotS8_6 = 0
TotS4_1 = 0
TotS4_2 = 0
TotS4_3 = 0
TotS4_4 = 0
TotS4_5 = 0
TotS4_6 = 0

Do While nUHLigadas < ((nUH - 1) / 2) And (TotS32_1 < 32 Or TotS32_2 < 32 Or TotS32_3 < 32 Or TotS32_4 < 32 Or TotS32_5 < 32 Or TotS32_6 < 32 Or TotS32_7 < 32 Or TotS32_8 < 32 Or TotS32_9 < 32)
If TotS32_1 <= TotS32_2 And TotS32_1 <= TotS32_3 And TotS32_1 < 32 Then
S32_1 = S32_1 + 1
TotS32_1 = TotS32_1 + 1
nUHLigadas = nUHLigadas + 1
ElseIf TotS32_2 <= TotS32_1 And TotS32_2 <= TotS32_3 And TotS32_2 < 32 Then
S32_2 = S32_2 + 1
TotS32_2 = TotS32_2 + 1
nUHLigadas = nUHLigadas + 1
ElseIf TotS32_3 <= TotS32_2 And TotS32_3 <= TotS32_1 And TotS32_3 < 32 Then
S32_3 = S32_3 + 1
TotS32_3 = TotS32_3 + 1
nUHLigadas = nUHLigadas + 1




HELP!!!!