Bom dia Mestres.

Preciso de uma ajuda de todos na seguinte situação, tenho uma planilha de produção, que tem uma formula que calcula o peso usado de papel para á produção, como segue em anexo a imagem.

O código a baixo elaborei para tirar da célula a formula de calculo da célula e substituir por um código VBA, mas estou com uma duvida em relação a, como fazer que o código calcule da célula R9 até a célula que até a célula que está preenchida:
Exemplo: E9 até E40

Preciso refinar o código que faça o calculo independente a quantidade de linhas preenchidas.

SEGUE CODIGO:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Dim A As Variant, B As Variant, C As Variant, D As Variant
Dim E As Variant, F As Variant, G As Variant
Range("r9:r34") = 0
A = Range("I9").Value
B = Range("j9").Value
C = Range("k9").Value
D = Range("l9").Value
E = Range("q9").Value
F = Range("I6").Value
G = Range("r9").Value
Range("r9") = (A / 100) * (B / 100) * C * D * (E / 1000) * (1 + F) / 1000 * 1000
Application.ScreenUpdating = True
End Sub