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!Something like this?
VBA Code:Sub To_Vals() With Intersect(ActiveSheet.UsedRange, Columns("A:G")) .Value = .Value End With End Sub