this code below will Sort the Columns However, It puts the blank cells on top
Sub SortRampLog() ActiveWorkbook.Worksheets("RAMP LOG (2)").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("RAMP LOG (2)").AutoFilter.Sort.SortFields.Add Key:= _
Range("A2:A1000")...