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

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