Visual Basic - ayuda

Buenos dias

Soy aprendiz principiante de visual basic, alguien podria ayudarme para poder ponerle un bucle do loop a esta rutina.

Sub Aero()
Dim Aero As String * 3
Dim Valor1 As Integer
Dim Valor2 As Integer
Dim total As Integer

Valor1 = ActiveSheet.Range("O6").Value
Valor2 = ActiveSheet.Range("P6").Value
Aero = ActiveSheet.Range("A6").Value

Select Case Aero
Case "ACA"
total = Valor1 + Valor2
Case "BJX"
total = Valor1 + Valor2
Case "BJX"
total = Valor1 + Valor2
Case "CTM"
total = Valor1 + Valor2
Case Else
total = 0
End Select
ActiveSheet.Range("T6").Value = total
End Sub