VBA Code - Copying data from a range to next range

[Vishaal]

Hi All,

Why the below code is not copying data to till last row

Sub copytilllast()
LR = Cells(Rows.Count, 1).End(xlUp)(2).Row

    Range("N2").FormulaR1C1 = "Max"
    Range("N3").FormulaR1C1 = "Min"
    Range("O2").FormulaR1C1 = "=MAX(RC[-9]:R[4]C[-9])"
    Range("O3").FormulaR1C1 = "=MIN(R[-1]C[-8]:R[3]C[-8])"
    Range("P2:P3").FormulaR1C1 = "=ROUNDUP(RC[-1],0)"
    Range("Q2:Q3").FormulaR1C1 = "=RC[-1]+0.2"
    Range("N2:Q7").Copy Range("N2:Q" & LR)

End Sub

its only creating the data but not copying, pls check and solve

 

[NdNoviceHlp]

Seems like this would be better. HTH. Dave

Sub copytilllast()
LR = Cells(Rows.Count, 1).End(xlUp).Row

    Range("N2").FormulaR1C1 = "Max"
    Range("N3").FormulaR1C1 = "Min"
    Range("O2").FormulaR1C1 = "=MAX(RC[-9]:R[4]C[-9])"
    Range("O3").FormulaR1C1 = "=MIN(R[-1]C[-8]:R[3]C[-8])"
    Range("P2:P3").FormulaR1C1 = "=ROUNDUP(RC[-1],0)"
    Range("Q2:Q3").FormulaR1C1 = "=RC[-1]+0.2"
    Range("N2:Q7").Copy Range("N2:Q" & LR + 1)

End Sub

 

[Vishaal]

Thank you very much NdNoviceHlp

 

[NdNoviceHlp]

You are welcome. Thanks for posting your outcome. Be safe. Dave