Convert formulas to values in last used row

[Panoos64]

Hi to all of you!
I would much appreciated if you could provide me support so that a VBA code to convert the formulas to values in columns from "A" till "G"
Thank you all in advance

 

[Peter_SSs]

Something like this?

Sub To_Vals()
  With Intersect(ActiveSheet.UsedRange, Columns("A:G"))
    .Value = .Value
  End With
End Sub

 

[Panoos64]

Something like this?

Sub To_Vals()
  With Intersect(ActiveSheet.UsedRange, Columns("A:G"))
    .Value = .Value
  End With
End Sub

Thank you Peter! Is perfect work. Its prepare my data according to my requirement. Thank you for your time spend for my project. Have a great day!

 

[Peter_SSs]

You're welcome. Thanks for the follow-up.

 

[Fluff]

@Panoos64 In future please mark the post that contains the solution, not your post saying it works. I have changed it this time.
Thanks

 

[Panoos64]

Thank you for this note Fluff! Really i didn't know and i was thinking that ticking the answer was ok. I express my apologies.