For i = 2 To DerLig
Select Case (i - 1) Mod 4
Case 1
Cells(i, 8).Value = CInt(Cells(i, 2).Value) / (Trim1 / (Trim1 + Trim2 + Trim3 + Trim4) * 4)
Case 2
Cells(i, 8).Value = CInt(Cells(i, 2).Value) / (Trim2 / (Trim1 + Trim2 + Trim3 + Trim4) * 4)
Case 3
Cells(i, 8).Value = CInt(Cells(i, 2).Value) / (Trim3 / (Trim1 + Trim2 + Trim3 + Trim4) * 4)
Case 0
Cells(i, 8).Value = CInt(Cells(i, 2).Value) / (Trim4 / (Trim1 + Trim2 + Trim3 + Trim4) * 4)
End Select
Next i