hente data fra andet ark

Hvis du kun skal gøre dette få gange, er det nemmeste i kolonne F at indsætte formlen:
=Række()*er.tal(a1)
Kopier først formlen til alle celler i kolonne F
Kopier dernæst alle celler i F til clipboard og brug "indsæt speciel, værdier" (genbrug kolonne F)
Nu kan du sortere efter kolonne F.
Tomme linjer kommer øverst, resten skulle gerne stå samme sted som før

Alt dette forudsætter at linjen er tom, når cellen i A er tom

Det skal gøres mange gange og der er forskel på hvor mange linier der ,da det er importerede data fra en txt fil.
Så jeg skal vist bruge lidt vba

Noget i stil med (ikke afprøvet, så kan indeholde fejl):
Sub hentdata()
    Dim c As Range, i as integer
    i = 4
    For Each c In Application.Intersect(Worksheets("Ark2").UsedRange, Worksheets("Ark2").Range("A:A"))
        If c.Row > 4 Then
            If c <> "" Then
                Worksheets("Ark1").Range("A4").Offset(i, 0) = c.Offset(0, 0)
                Worksheets("Ark1").Range("B4").Offset(i, 0) = c.Offset(0, 1)
                Worksheets("Ark1").Range("C4").Offset(i, 0) = c.Offset(0, 2)
                Worksheets("Ark1").Range("D4").Offset(i, 0) = c.Offset(0, 3)
                Worksheets("Ark1").Range("E4").Offset(i, 0) = c.Offset(0, 4)
                i = i + 1
            End If
        End If
    Next
End Sub

Det med skiftene kan ikke laves på nogen nem måde

Ved ikke lige hvad der er sket. Jeg lavede et indlæg til dette spørgsmål i formiddags, men det er ikke kommet på. Jeg må have sovet i timen.

Det virker fuldstændig som det skal.
Jeg takker mange gange.

Hvis du har et svar, så har jeg points

Jeg har en lille variation til dette spørgsmål, som jeg har oprettet i et nyt spørgsmål.
Håber at der er nogle der kan hjælpe med det også.

Men endnu engang tak

det viser sig at der nogle gange ikke kun er tal i kolonne A.
Hvis der ikke er tal skal den ikke importere / flytte linien

JEg har prøvet med:

If c.value > 0 Then

Men det virker ikke.
Hvad skal man ændre det til for at den kun flytter linier over som har TAL i kolonne A

du kan måske bruge Application.WorksheetFunction.isnumber(c)

Jeg har forsøgt med nedenstående, men så henter den ingen data overhovedet.

Sub hentdata()
    Dim c As Range, i as integer, taltjek as boolean
    i = 4
    For Each c In Application.Intersect(Worksheets("Ark2").UsedRange, Worksheets("Ark2").Range("A:A"))
        taltjek = Application.WorksheetFunction.IsNumber(MyRange)
        If taltjek = True Then
        If c.Row > 4 Then
            If c <> "" Then
                Worksheets("Ark1").Range("A4").Offset(i, 0) = c.Offset(0, 0)
                Worksheets("Ark1").Range("B4").Offset(i, 0) = c.Offset(0, 1)
                Worksheets("Ark1").Range("C4").Offset(i, 0) = c.Offset(0, 2)
                Worksheets("Ark1").Range("D4").Offset(i, 0) = c.Offset(0, 3)
                Worksheets("Ark1").Range("E4").Offset(i, 0) = c.Offset(0, 4)
                i = i + 1
            End If
        End If
        end if
    Next
End Sub

Jeg rettede (myrange ) til (c) og så virkede det.
Takker for hjælpen