Remove Select from Macro

[joshag]

I am a "cut and paste" noob.

I am trying to remove formulas (working) and align and sort the rest. The spread sheet now is over 400 rows but will continue to grow. Every time I try and do a simple loop or get it to stop at a blank cell it blows up.
It works as is but there has to be a cleaner way to do it.

Thanks in advance.

Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Sort")
 
    ws.UsedRange.Value = ws.UsedRange.Value
            
    Columns("A:A").Select
    Selection.NumberFormat = "0;[Red]0"
    Range("A3").Select

    Range(Selection, Selection.End(xlDown)).Select
    With Selection
        .HorizontalAlignment = xlRight
.MergeCells = False
    End With
    Range("C3").Select
    Range(Selection, Selection.End(xlDown)).Select
    With Selection
        .HorizontalAlignment = xlLeft
    End With
    Rows("3:3").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("Sort").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sort").Sort.SortFields.Add Key:=Range("C3:C438"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sort").Sort
        .SetRange Range("A3:AC438")
        .Header = xlGuess
        .SortMethod = xlPinYin
        .Apply