Sorting when a column or 2 is empty

[SandsB]

This code sorts my data based on the value in column B. But - one (or more) of the columns in my data is frequently empty and then the columns to the right of it aren't sorted. What changes could I make to ensure sorting by column B doesn't leave some columns unsorted?

 Sheets("Pending").Select
    Range("B2").Select
    ActiveWorkbook.Worksheets("Pending").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Pending").Sort.SortFields.Add2 Key:=Range( _
        "B2:B10000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Pending").Sort
        .SetRange Range("B2:B10000")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

 

[DanteAmor]

Try this:
Change the letter "F" in the following code to the letter in the right column that you need to be included in the sort.

Sub sortingdata()
  Sheets("Pending").Select
  Range("B2:F" & Range("B" & Rows.Count).End(3).Row).Sort Range("B2"), xlAscending, Header:=xlNo
End Sub