[Resolvido]Ajuda Rng VBA

Boa tarde

Tenho uma dúvida quanto a um código vba que adaptei para uma planilha excel, minha dúvida é posso percorrer este range de células em mais de uma coluna , exemplo  rng é ("D5:D153") e eu preciso que haja comparação com o intervalo ("A5:A153") , tentei mais ou menos assim :

Realmente busquei por ajuda em outros locais mas não consegui caso alguém possa me ajudar agradeço.


Sub ajuste()

Dim rng As Range
Dim rng2 As Range
Dim distribuir As Integer
Dim aumento As Integer


distribuir = Range("D3")
aumento = Range("C3")
For Each rng In Range("D5:D153")
For Each rng In Range("A5:A153")            
           
             If rng <= aumento And rng.Value < rng1.Value Then
             rng.Value = rng.Value + distribuir
                       

                       
           End If

Next rng

End Sub

O fórum é exclusivo para assuntos que tenham alguma relação com o Access, mas deixo uma dica:

Código:

Dim nCell As Double, R As Integer

nCell = Plan1.Range("A" & Rows.Count).End(xlUp).Row

For R = 1 To nCell
    If Plan1.Range("A" & R) <= Plan1.Range("C" & R) Then
        ResultadoAqui
    End If
Next

Boa tarde peço a todos desculpa por ter postado este tópico sobre excel , só que realmente não achei a resposta em nenhum local e realmente estava precisando , casualmente resolvi de outra forma mas acredito que todo post se torne um documento e somos responsáveis por ele e já que está postado segue o código da solução. ( Caso o moderador queira mover o tópico compreenderei.)
Agradeço a todos a ajuda de sempre.

Sub ajuste()


Dim rng As Range
Dim distribuir As Integer
Dim aumento As Integer


distribuir = Range("D3")

aumento = Range("C3")


For Each rng In Range("D5:D153")

If rng.Value < rng.Offset(0, -1).Value Then


          rng.Value = rng.Value + distribuir
                       
                       
           End If
           Next rng
           

End Sub