Copy range value, format and formulas

[Apple08]

Hi All

I want to copy and paste a range's value, format and formulas, I have a macro below and please could you let me know how to edit it to make all of the values/format/formulas be included? Thanks.

Private Sub Copy()

Dim Last_Row As Long
Sheets("Master").Select
Last_Row = Range("A" & Rows.Count).End(xlUp).Row

   
Dim LR As Long
    LR = Sheets("Copy").Range("A" & Rows.Count).End(xlUp).Row
    
    Sheets("Copy").Range("A2:AC" & LR).Copy
    Sheets("Master").Range("A" & Last_Row + 1).PasteSpecial


End Sub

 

[Apple08]

Thanks Fluff. Unfortunately the formulas were not setup by me, I tried to copy the formulas from the SUP Tracker tab to others manually and it let me to do so. I wonder is there any other way to copy and paste?

 

[Fluff]

When you copy/paste the data some of the formula become circular references which I suspect is why it some times pastes as values not formula.
You will need to sort the formulae out.