yüzde döngüsü hk

[chakistes]

merhaba arkadaşlar aşağıdaki kodu döngü ile abc1 den başlıyor abc20 ye kadar % 18 olarak cba1 den cba20 ye % 8 kadar devam ediyor bunu döngü ile nasıl yapabilirim
'---------------YÜZDE DÖNGÜSÜ -------------------
If veri.ABC1.Value = True Then
veri.ABC1.Value = True
[F10] = " % 18"
[g10] = WorksheetFunction.Sum([E10] * 18 / 100 + [E10])

Else
veri.ABC1.Value = False
[F10] = ""

'---------------YÜZDE DÖNGÜSÜ -------------------

'---------------YÜZDE DÖNGÜSÜ -------------------
If veri.CBA1.Value = True Then
veri.CBA1.Value = True
[F10] = " % 8"
[g10] = WorksheetFunction.Sum([E10] * 8 / 100 + [E10])
Else

veri.CBA1.Value = False
[F10] = ""
End If
End If
'---------------YÜZDE DÖNGÜSÜ -------------------