Sub SortACol(strSheetName As String, strEnd As String, Column as string)
Dim strColumnRange As String
Dim rngCurrentCell As Range
Dim rngNextCell As Range
strColumnRange = "A1:O" & Trim(strEnd)
Worksheets(strSheetName).Range(strColumnRange).Sort _...