Need VBA to sum up a row that could vary in length

[kac1125]

Trying to run a VBA that will sum up a column that could be any number in length. So I need it to search for the first empty cell and put the sum there. I can only get it to work as follows:

Range("K4").Select
Selection.End(xlDown).Select
Range("K19").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[-15]C:R[-1]C)"
Range("K20").Select

So I am trying to sum up K4:last cell k20 happened to be the last cell in my current file. But want it to be able to work if there were more rows as well.

Please let me know if you have any ideas. Thanks in advance!

 

[Osvaldo Palmeiro]

Hi. Try this:

Sub InsertFormula()
 Dim LastRow As Long
  LastRow = Cells(Rows.Count, "K").End(3).Row
  Cells(LastRow + 1, "K") = "=SUM(k4:k" & LastRow & ")"
End Sub

 

[=ODIN=]

Maybe this:

range("K"& Range("K4").end(xldown).row +1).formula = "=sum(k4:k" & Range("K4").end(xldown).row & ")"

 

[kac1125]

Thanks! That did the trick!