Division of cells using cells(ij) format

[keerthi4786]

Hi everyone, I want to divide respective cells in one column with other column and obtaining the results in next column using cells reference. Here is VBA code i am using
Range(Cells(3, lastcolumn + 6), Cells(5, lastcolumn + 6)).Formula = "=" & Cells(3, lastcolumn + 4) & "/" & Cells(3, lastcolumn + 5)

It is giving same value for all cells it will not dividing respective cells.

 

[jolivanes]

What is "lastcolumn"?
Normally one assumes that it would be the last used column.

 

[keerthi4786]

Yes. Lastcolumn means last used column having data.

 

[jolivanes]

"=" & Cells(3, lastcolumn + 4) & "/" & Cells(3, lastcolumn + 5)

If "lastcolumn" is the last column to have data then certainly "lastcolumn + 4" and "lastcolumn + 5" must be empty Columns. Or am I missing something?

 

[mikerickson]

If I were putting a formula in those cells, I would do somehting like

Range(Cells(3, lastcolumn + 6), Cells(5, lastcolumn + 6)).FormulaR1C1 = "=RC[-2]/RC[-1]"

 

[jolivanes]

Try this and see what the formula says. Adjust/Change references as required.

Sub Maybe()
Dim lc As Long
lc = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
    Range(Cells(1, lc + 1), Cells(25, lc + 1)).Formula = "=RC[-2]/RC[-1]"
End Sub

Mike was just a couple steps faster.