Sort data 2nd rows

heeeeeeeeeeelp

Hi
See sample workbook. Formulas are in every other cell in column B. Then you can sort by surname.
Hope this helps.
Good luck.
Tony

I would suggest joining the surnames and first names together and then sorting and "unjoin" them afterwards. Something like:

Sub macro_1()
Dim count As Integer, max_count As Integer
count = 1
Do Until Range("A" & count) = ""
    Range("A" & count) = Range("A" & count) & "," & Range("A" & count + 1)
    Range("A" & count + 1) = ""
    count = count + 2
Loop
max_count = count
Range("A1:A" & max_count).Sort Key1:=Range("A1"), Order1:=xlAscending
count = 1
Do Until count >= max_count
    Rows(count + 1).Insert
    Range("A" & count + 1) = Right(Range("A" & count), Len(Range("A" & count)) - InStr(1, Range("A" & count), ","))
    Range("A" & count) = Left(Range("A" & count), InStr(1, Range("A" & count), ",") - 1)
    count = count + 2
Loop
End Sub

(based on your data being in column A, starting at row 1)

That's much more difficult. Especially as you are throwing in merged cells! You'll have to give me a minute to come up with a solution.

Ok, I've come up with this:

Option Explicit
Sub macro_1()
Dim wS1 As Worksheet, wS2 As Worksheet, count As Integer, count_2 As Integer
Set wS1 = ActiveSheet
Set wS2 = Sheets.Add
count = 3
count_2 = 3
Do Until wS1.Range("A" & count) = ""
    wS2.Range("A" & count_2) = wS1.Range("A" & count)
    wS2.Range("B" & count_2) = wS1.Range("A" & count + 1)
    wS2.Range("C" & count_2) = wS1.Range("B" & count)
    wS2.Range("D" & count_2) = wS1.Range("B" & count + 1)
    wS2.Range("E" & count_2) = wS1.Range("C" & count)
    wS2.Range("F" & count_2) = wS1.Range("D" & count)
    wS2.Range("G" & count_2) = wS1.Range("D" & count + 1)
    wS2.Range("H" & count_2) = wS1.Range("E" & count)
    count = count + 2
    count_2 = count_2 + 1
Loop
wS2.Range("A3:H" & count).Sort Key1:=Range("A3"), Order1:=xlAscending
count = 3
For count_2 = 3 To count_2
    wS1.Range("A" & count) = wS2.Range("A" & count_2)
    wS1.Range("A" & count + 1) = wS2.Range("B" & count_2)
    wS1.Range("B" & count) = wS2.Range("C" & count_2)
    wS1.Range("B" & count + 1) = wS2.Range("D" & count_2)
    wS1.Range("C" & count) = wS2.Range("E" & count_2)
    wS1.Range("D" & count) = wS2.Range("F" & count_2)
    wS1.Range("D" & count + 1) = wS2.Range("G" & count_2)
    wS1.Range("E" & count) = wS2.Range("H" & count_2)
    count = count + 2
Next
Application.DisplayAlerts = False
wS2.Delete
Application.DisplayAlerts = True
End Sub

I've tested it against the sample you provided and it seems to work.

thank you , but is error when is end I dont understand why

What is the error and where does it occur? I've just double-checked/tested it again and it still gave me the correct result for your sample.

Are you testing it on the sample or the full data?

look for this - sort.vA02.xlsm

The macro I gave you works on the data in sort.vA02.xlsm on my machine. Try putting it in a new module and running it from there rather than the command button? What is the error you get? Is it an error in the code? Or is the end result not what you want?

I work with command button , its my weakness, I use button to action and there si errror

Marianus, try changing this line in the code

wS2.Range("A3:H" & count).Sort Key1:=wS2.Range("A3"), Order1:=xlAscending

Thank you for all