Célula vázia

[Henrique Eduardo]

Estou com problema na hora de aplicar a macro abaixo:

Dim wks As Worksheet
    Dim rng As Range
    Dim Cont As Long
    Dim i As Integer
    Dim totalLinhas As Integer
   
    totalLinhas = Planilha4.Range("F15").CurrentRegion.Rows.Count + 1
   
 
    Set wks = ActiveSheet
    Set rng = wks.Range("F14").Offset(1)
   
    If Not IsEmpty(rng) And IsNumeric(rng) Then
        Set rng = wks.Range(rng, rng.End(xlDown))
        wks.cells(n, 1) = Application.WorksheetFunction.Sum(rng)
    End If
  
   
    Set rng = Nothing
    Set wks = Nothing

End Sub

A ideia é que some todo o valor da célula F a partir das F15, até a primeira célula vazia que aparecer , até aí tudo certo, só que além disso, quero que o valor somado seja colado nessa célula vazia, ou seja , logo abaixo das células somadas.

 

Observação, não dar certo contando até a última linha e voltando para a célula vazia , pois após essa célula vazia existirá mais outras células , e não posso definir a célula pois ela é variável , então sempre que eu adicionar um produto ela é deslocada.

 

 

Alguém me ajuuuuuuda