adjust macro for paste formulas to values

Hi could someone please adjust this macro so that is would paste formulas to values for columns "AS to AV"
Currentlly it only changes formulas to values for column "AR"
Thanks

Sub formulas_to_values()
With Sheets("data")
    For i = 312000 To 344000
        With .Range("Ar" & i)
            If .Parent.Range("a" & i) <> "" Then .Value = .Value
        End With
    Next
        MsgBox "complete"
Exit Sub
out:
    MsgBox "copy was cancelled"
    Application.ScreenUpdating = True
    End With
End Sub

Try

        With .Range("AR" & i).Resize(, 5)
            If .Parent.Range("A" & i) <> "" Then .Value = .Value
        End With

Artik

Thanks alot, that works