Sorting data between blank rows

[Flexi1]

Hi, this might be a really simple but for the life of me I cannot figure it out.

I have data between blank rows and I wish to sort the data between each blank rows A-Z.

So each section of data between the blank rows to be individually sorted A-Z and

BLANK ROW
DATA
DATA
DATA
BLANK ROW
DATA
DATA
DATA
BLANK ROW

 

[Peter_SSs]

Assuming the data is in column A and that the data is not the result of formulas, try this with a copy of your data.

Sub SortAreas()
  Dim rng As Range
  
  For Each rng In Columns("A").SpecialCells(xlConstants).Areas
    rng.Sort Key1:=rng(1), Order1:=xlAscending, Header:=xlNo
  Next rng
End Sub

 

[Flexi1]

Hi

This works however I would need the rest of the data across the cells to sort along with the data in column A

Many Thanks

 

[Fluff]

How about

Sub SortAreas()
  Dim rng As Range
  
  For Each rng In Columns("A").SpecialCells(xlConstants).Areas
    rng.CurrentRegion.Sort Key1:=rng(1), Order1:=xlAscending, Header:=xlNo
  Next rng
End Sub

 

[Flexi1]

Hi

This worked to a point but there are gaps between columns in those blocks too.

Sorry I should have said.

 

[Fluff]

What is the last column of data?

 

[Peter_SSs]

Hi

This works however I would need the rest of the data across the cells to sort along with the data in column A

Many Thanks

Add the red text to my previous code.

rng.EntireRow.Sort Key1:=rng(1), Order1:=xlAscending, Header:=xlNo