Adjust macro to copy values not formulas

[ste33uka]

I have the following macro that copies data from current worksheet to worksheet called DATA MONTHLYS when cell nx1 = xxxxxx.
But currently it copies formulas, is there a way to make it copy the values made via the formulas.
Thanks

Sub DataMonthlys()
   Dim i As Long
  
   For i = 1 To 60
      With Sheets(CStr(i))
         If LCase(.Range("nx1").Value) = "yes" Then
            .Range("tn4:tp75").Copy Workbooks("DATA MONTHLYS").Sheets("SHEET1").Range("a" & Rows.Count).End(xlUp).Offset(1)
            .Range("uv4:uw289").Copy Workbooks("DATA MONTHLYS").Sheets("SHEET1").Range("d" & Rows.Count).End(xlUp).Offset(1)
         ElseIf LCase(.Range("nx1").Value) = "no" Then
            .Range("tn4:tp75").Copy Workbooks("DATA MONTHLYS").Sheets("SHEET2").Range("a" & Rows.Count).End(xlUp).Offset(1)
            .Range("uv4:uw289").Copy Workbooks("DATA MONTHLYS").Sheets("SHEET2").Range("d" & Rows.Count).End(xlUp).Offset(1)
         End If
      End With
   Next i
End Sub

 

[JB2020]

You can split it into two rows as below:

.Range("tn4:tp75").Copy
Workbooks("DATA MONTHLYS").Sheets("SHEET1").Range("a" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlpastevalues

 

[Domenic]

Or, alternatively, try replacing...

.Range("tn4:tp75").Copy Workbooks("DATA MONTHLYS").Sheets("SHEET1").Range("a" & Rows.Count).End(xlUp).Offset(1)

with

With .Range("tn4:tp75")
    Workbooks("DATA MONTHLYS").Sheets("SHEET1").Range("a" & Rows.Count).End(xlUp).Offset(1).Resize(.Rows.Count, .Columns.Count).Value = .Value
End With

And, the same thing for the rest.

Hope this helps!

 

[ste33uka]

Thanks for both suggestions, all done