how to set a list in ascending order

[jayanthimurali]

Hi

I enter a list of names the way they come during a month, the name may be repeted, but at the end of the month i copy in another file where in i sort manually in ascending order. can somebody help me in using macros where in if copy to some new file it should atomatically sort in ascending order.

Thanks in advance

 

[Sektor]

Sub SortAutomatically()

    Dim shTemp As Worksheet, rng As Range
    
    Set rng = Range("A1:A100")
    Set shTemp = Sheets.Add
    rng.Copy shTemp.Range("A1")
    
    With shTemp.Range("A1").CurrentRegion
        .Sort Key1:=shTemp.Range("A1"), Order1:=xlAscending
        .Copy rng.Cells(1, 1)
    End With
    
    shTemp.Delete

End Sub

 

[jayanthimurali]

Thank u very much.

i have one more question ok ihave copied in a new excel, can i copy this in an old file where in i have the data for previous months. for example, cell A to C i have for jan, D to F i have for FEB can i copy this in the same file for the next month.

 

[jayanthimurali]

can anyone help on the second question please

 

[jayanthimurali]

can some one help with the above question and also one more query

I have two sheets. in first page i paste month wise. on the second page after completion of the month i move the same data to the second page for example if i have jan in row A, feb in row B. so on....
is there a way when the month ends it should automatically move to the next sheet and the next row.

thanks in advance.