kode til vælge af området, med henblik på lave sortering

Sub sortera()
   
    Range("A8:I8").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=-27
    Selection.Sort Key1:=Range("A8"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Her er en meget simpel kode til dit første problem. Hvis du skal bruge flere kolonner end til I så ændrer du blot det i koden. Koden forudsætter at der ikke kommer flere tal ind efter den sidste. Excel er ligeglad med at man har taget for mange celler med

Er det en fast fil der skal åbnes?

Sådan som skriver f.eks. området vælges 27 rækker ned fra række 8, sker jo det at hvis der er data kun i 10 rækker, så kommer 17 tommer rækker første på "rækken" når man sortere i alfabetisk orden.

Nej - i den kode så tager den ikke de tomme med... Har du testet den?

Sub Åbn_fil
      Workbooks.Open Filename:="C:\regneark\" & filnavn & ".xls"
End Sub

Jeg ved ikke hvordan man kontrollerer det

Range("A8:u8").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=-80

' Den kører hertil, resten bliver gult og makroen stopper.

    Selection.Sort Key1:=Range("A8"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

Den virker upåklageligt hos mig...

Jeg har kopieret den ind her fra. Det er vigtigt at excel ikke har skåret den på det forkerte sted

Sub sorter

    Range("A8:U8").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Sort Key1:=Range("A8"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Her er den fra a til u - prøv den

Det eneste der sker er at dataområdet bliver valgt, og så stopper den.

Jeg er lidt ny i VBA, men prøv denne her, den har jeg selv lavet den, og den fungerer fint!
-Jeg se du har fået forslag til hvordan du finder en fil.

Sub SorterIndsatteRækker()
  Const A = "A"
  Dim sCelle As String
 
    Range("A7").Select
    sCelle = ActiveCell.Row
 
  Do
    sCelle = sCelle + 1
    Range(A & sCelle).Select
  Loop Until ActiveCell = ""
 
    Rows("8:" & sCelle).Select
    Selection.Sort Key1:=Range("A8"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A8").Select
    MsgBox "Der var " & sCelle - 8 & " rækker indsat, og de er sorteret stigende !", vbInformation, "Indsatte rækker..."

End Sub

Jeg væk i en periode.
Din løsning virkede. Tak for hjælpen.
Jeg mangler stadig koden til at åbne filen, hvor der skal første tjekes om filen allerede er åbne, og hvis det er åbnet, så skal der ikke ånes.

Hej

Hvis du åbner en fil som allerede er åbnet - så får du vel en fejl og det afgør om den er eller ikke er åben. Men det er jo selvfølgelig ikke fuldautomatiseret.

Hej
Det med koden til og åben en fil har du fået forslag til, hvordan man tjekker om den allere er åben, kan jeg ihvertfald ikke finde ud af.