VBA paste values only

[thedeadzeds]

Hi Guys, how do I amend the below to change to paste values only?

Many thanks

Sub New_copy_to_all_dept()
   With Sheets("Master Dept")
      .Range("A2:G" & .Range("G" & Rows.Count).End(xlUp).Row).Copy Sheets("All Dept").Range("a" & Rows.Count).End(xlUp).Offset(1)
   End With
End Sub

 

[Fluff]

How about

Sub New_copy_to_all_dept()
   With Sheets("Master Dept")
      .Range("A2:G" & .Range("G" & Rows.Count).End(xlUp).Row).Copy
      Sheets("All Dept").Range("a" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues
   End With
End Sub