Select Range of the last row

[vostroxe]

Below code only work to select single cell. Let say last row is row 50. How do I select range of last row between A50 to Z50.

Cells(LastRow + 1, "A").Select

Is it possible to combine below codes into single line?

Cells(LstRow, "C").Formula = "=SUM(C4:C" & LstRow - 1 & ")"

Cells(LstRow, "D").Formula = "=SUM(D4:D" & LstRow - 1 & ")"

Cells(LstRow, "E").Formula = "=SUM(E4:E" & LstRow - 1 & ")"

 

[JonnyBT123]

Below code only work to select single cell. Let say last row is row 50. How do I select range of last row between A50 to Z50.

Cells(LastRow + 1, "A").Select

Is it possible to combine below codes into single line?

Cells(LstRow, "C").Formula = "=SUM(C4:C" & LstRow - 1 & ")"

Cells(LstRow, "D").Formula = "=SUM(D4:D" & LstRow - 1 & ")"

Cells(LstRow, "E").Formula = "=SUM(E4:E" & LstRow - 1 & ")"

I believe this is something you're looking for?

Range("A1",range("Z100000").End(xlUp)).Select

You can use this to do pretty much anything.
Eg: You can input a formula into C1 and copy it down as manyrows as required with

 Range(“C1”).Formula = “<INPUT FORMULA HERE>”

Range(“C1”).Copy
Range(“C2”,range(“C100000”).End(xlUp)).PasteSpecial

Is this what you’re needing or am I not understanding yourpost?

 

[Fluff]

This will add the formulas 1 row below the last row

Range("A" & Rows.count).End(xlUp).Offset(1, 2).Resize(, 3).FormulaR1C1 = "=sum(r4c:r[-1]c)"

 

[jim may]

RE: Your 1st Q: try code:

Sub foo()
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & LR & ":Z" & LR).Select
End Sub

 

[vostroxe]

Thanks mate. this is exactly what im looking for.

 

[vostroxe]

This will add the formulas 1 row below the last row

Range("A" & Rows.count).End(xlUp).Offset(1, 2).Resize(, 3).FormulaR1C1 = "=sum(r4c:r[-1]c)"

I actually require the formula at the last row. What value do I have to amend if I want to extend up to column Z?