IF row in table is complete then turn to values?

[JumboCactuar]

Hi,
I probably need a for loop for this,

I have a table which has the range A1:J500 and a lot of it is formulated.

It can get slow after resizing and data increases, so I was wondering thinking I could turn formulas into values once the row is filled and no longer needs changing

Would this have any affect on resizing (autofill formulas) ?

Or anyone suggest an alternative

 

[JumboCactuar]

i think im close, just need to figure how to turn the rows to vals

Public Sub ToValz()Application.Calculation = xlManual
Application.ScreenUpdating = False
Dim r As Range


    For Each r In Range("G6:G5000")
        If r.Value > 0 And r.Offset(0, 1) > 0 Then
        ' how to turn current row to values? A to L
        End If
    Next


Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End Sub