Sort several ranges

[EranP]

Hi everyone,

I have several ranges in My worksheet. Each range is separated by an empty row .

Each range start With A = 1050

In all ranges A-H column are constant. And I-AT columns are variable.
I need to sort for any range that I-AT columns will be sort by A->Z by columns I.

First table below is wrong and the 2nd is correct.

I will appreciate your help


First table

[TABLE="width: 1011"]
<colgroup><col><col><col span="2"><col><col><col><col><col><col><col><col></colgroup><tbody>[TR]
[TD]BUKRS[/TD]
[TD]BLART[/TD]
[TD]BLDAT[/TD]
[TD]BUDAT[/TD]
[TD]WAERS[/TD]
[TD]XBLNR[/TD]
[TD]BKTXT[/TD]
[TD]XMWST[/TD]
[TD]BSCHL/NEWBS[/TD]
[TD]HKONT/NEWKO[/TD]
[TD]NEWBK[/TD]
[TD]WRBTR[/TD]
[/TR]
[TR]
[TD]1050[/TD]
[TD]DZ [/TD]
[TD]02.01.2018[/TD]
[TD]02.01.2018[/TD]
[TD]ILS[/TD]
[TD]RC189000002[/TD]
[TD] [/TD]
[TD] [/TD]
[TD]40[/TD]
[TD]112104[/TD]
[TD] [/TD]
[TD]50[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD]11[/TD]
[TD]7000002[/TD]
[TD] [/TD]
[TD]50[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]1050[/TD]
[TD]DZ [/TD]
[TD]02.01.2018[/TD]
[TD]02.01.2018[/TD]
[TD]ILS[/TD]
[TD]RC189000003[/TD]
[TD] [/TD]
[TD] [/TD]
[TD]40[/TD]
[TD]121009[/TD]
[TD] [/TD]
[TD]18[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD]11[/TD]
[TD]7000002[/TD]
[TD] [/TD]
[TD]36[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD]40[/TD]
[TD]121009[/TD]
[TD] [/TD]
[TD]18[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]
2nd tabl
[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]BUKRS[/TD]
[TD]BLART[/TD]
[TD]BLDAT[/TD]
[TD]BUDAT[/TD]
[TD]WAERS[/TD]
[TD]XBLNR[/TD]
[TD]BKTXT[/TD]
[TD]XMWST[/TD]
[TD]BSCHL/NEWBS[/TD]
[TD]HKONT/NEWKO[/TD]
[TD]NEWBK[/TD]
[TD]WRBTR[/TD]
[/TR]
[TR]
[TD]1050[/TD]
[TD]DZ [/TD]
[TD]02.01.2018[/TD]
[TD]02.01.2018[/TD]
[TD]ILS[/TD]
[TD]RC189000002[/TD]
[TD] [/TD]
[TD] [/TD]
[TD]11[/TD]
[TD]7000002[/TD]
[TD] [/TD]
[TD]50[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD]40[/TD]
[TD]112104[/TD]
[TD] [/TD]
[TD]50[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]1050[/TD]
[TD]DZ [/TD]
[TD]02.01.2018[/TD]
[TD]02.01.2018[/TD]
[TD]ILS[/TD]
[TD]RC189000003[/TD]
[TD] [/TD]
[TD][/TD]
[TD]11[/TD]
[TD]7000002[/TD]
[TD] [/TD]
[TD]36[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD][/TD]
[TD]40[/TD]
[TD]121009[/TD]
[TD] [/TD]
[TD]18[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD]40[/TD]
[TD]121009[/TD]
[TD] [/TD]
[TD]18[/TD]
[/TR]
[TR]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
</tbody>[/TABLE]

 

[DanteAmor]

Assuming your headers are in row 1 and the data starts in row 2, try this:

Sub Sort_ranges()
  Dim ar As Range, ini As Long
  Application.ScreenUpdating = False
  Range("I" & Rows.Count).End(xlUp)(3).Value = "x"
  ini = 2
  For Each ar In Range("I2", Range("I" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeBlanks)
    Range(Cells(ini, "I"), Cells(ar.Row - 1, "L")).Sort key1:=Range("I" & ini), order1:=xlAscending, Header:=xlNo
    ini = ar.Row + 1
  Next
  Range("I" & Rows.Count).End(xlUp).Value = ""
End Sub