Macro to perform 2 tasks

[nparsons75]

Hi,

I have a range of cells that contain data. B12:K44

I need a macro that when activated performs the following tasks.

Each column to be sorted alphabetically in ascending order.
Any BLANK cells below the NON BLANK cells will be populated with the text 'AVAILABLE'

Hoping someone can assist, thank you in advance.

 

[Truiz]

Try this on for size

Sub Macro2Perform2Tasks()
Dim lrow, i, j As Long


lrow = ActiveSheet.Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row
    
    For i = 2 To 11
    
        Worksheets(1).Sort.SortFields.Clear
        Worksheets(1).Sort.SortFields.Add Key:=Cells(1, i), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
        With ActiveWorkbook.Worksheets(1).Sort
        .SetRange Range(Cells(2, i), Cells(lrow, i))
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
        End With
            
            For j = lrow To 2 Step -1
                If Cells(j, i) = "" Then
                    Cells(j, i) = "AVAILABLE"
                End If
            Next j
        
   Next i
   
   
   
End Sub