Add Formula to Bottom of Column

Re: Dim As Long Won't Work With One Cell?

Are you trying to find the last row in the column with this line?

cLen2 = Range("C1").End(xlDown).Row

Re: Dim As Long Won't Work With One Cell?

Never go down buddy, always up - Try this line of code
[vb]
Range("c65536").End(xlUp).Select
[/vb][vb]
Sub test_IT()
' written by jack in the uk - for http://www.OzGrid.com
' Our WEB SITE http://www.excel-it.com

Dim myCell As Excel.Range
Dim myRow As Long
Set myCell = Range("c65536").End(xlUp)
myRow = myCell.Row
MsgBox myRow
End Sub
[/vb]
jiuk

Re: Dim As Long Won't Work With One Cell?

Quote from Foxxy1

I'm trying to determine how long Column "C" is so the code knows how many rows to put the formula in.

The code above will give You the last cell so its C1 from that cell reference, can not tell how Your going about this without Your codes in full but should be doable from here

jiuk

Re: Dim As Long Won't Work With One Cell?

Does this help more?
[vb]
Sub test_IT_V2()
' written by jack in the uk - for http://www.OzGrid.com
' Our WEB SITE http://www.excel-it.com

Dim myCell_START As Excel.Range
Dim myCell_END As Excel.Range
Dim myRow_START As Long
Dim myrow_FINSIH As Long
Dim myCountRows As Long
Dim myRange As Excel.Range

Set myCell_START = Range("c1")
Set myCell_finish = Range("c65536")
myRowCount = myCell_finish.End(xlUp).Row - myCell_START.Row
MsgBox myRowCount
'
Set myRange = Union(myCell_START.End(xlDown), myCell_finish.End(xlUp))
MsgBox myRange.Address(False, False)
theEnd:
Set myCell_START = Nothing
Set myCell_finish = Nothing
Set myRange = Nothing
Exit Sub
End Sub
[/vb]
jiuk

Re: Dim As Long Won't Work With One Cell?

Quote from Foxxy1

I'm trying to determine how long Column "C" is so the code knows how many rows to put the formula in.

As well as Jacks suggestion - for more help See this link.

http://www.ozgrid.com/VBA/ExcelRanges.htm

Re: Dim As Long Won't Work With One Cell?

Modifying your original code:

Dim cLen2 As Long
cLen2 = Range("C" & Rows.Count).End(xlUp).Row
Range("D1", Cells(cLen2, 4)).FormulaR1C1 = "=SUMIF(C[-3],RC[-1],C[-2])"