Change code to paste as special (values)

[zipaway]

Hello I have the following code below that copies and pastes values to a destination. How do I set it up so that it pastes special (values)?

For i = LBound(varSheets) To UBound(varSheets)
   With Sheets(varSheets(i))
     lastRow = .Range("A" & Rows.Count).End(xlUp).Row
     .Range("A2" & ":G" & lastRow).Copy Destination:= _
         ThisWorkbook.Worksheets("Test").Range("A" & Rows.Count).End(xlUp)(2)
   End With
Next