teste om kolonne F er tom i aktiv linje

Sub Ombyt()
    aktuelleRække = ActiveCell.Row
    If Cells(aktuelleRække, 6) = "" And Cells(aktuelleRække - 1) = "" Then

        ActiveCell.Rows("1:1").EntireRow.Select
        Selection.Insert Shift:=xlDown
        ActiveCell.Offset(2, 0).Range("A1:D1").Select
        Selection.Cut Destination:=ActiveCell.Offset(-2, 0).Range("A1:D1")
        ActiveCell.Rows("1:1").EntireRow.Select
        Selection.Delete Shift:=xlUp
        ActiveCell.Offset(-1, 0).Range("A1").Select
    Else
        Exit Sub
    End If
End Sub

Hvad hvis aktuelle række = 1?

du manglede vist  et ,6

If Cells(aktuelleRække, 6) = "" And Cells(aktuelleRække - 1,6) = "" Then

Korrekt - tak for det

da første linje er en overskrift, skal den ikke virke i denne linje. altså gerne exit sub

jeg har lavet en genvejstast til koden, så jeg bare skal bruge ctrl + B

Men dette skal kun virke i ark2. I andre ark må den ikke.
jeg prøvede med at lave den til en private sub i det enkelte ark, men så ryger muligheden for at lave genvejstasten.

så jeg tænkte på om man ikke kunne starte med:

if activesheet = ark2 then

Men jeg kan ikke få det til at virke.
Er der en anden smart løsning til dette problem.

udover, ovenstående virker koden lige som den skal, efter kabbaks indskydelse

Sub Ombyt()
    If LCase(ActiveSheet.Name) = "ark2" Then
        aktuellerække = ActiveCell.Row
        If Cells(aktuellerække, 6) = "" And Cells(aktuellerække - 1, 6) = "" And aktuellerække > 1 Then
            ActiveCell.Rows("1:1").EntireRow.Select
            Selection.Insert Shift:=xlDown
            ActiveCell.Offset(2, 0).Range("A1:D1").Select
            Selection.Cut Destination:=ActiveCell.Offset(-2, 0).Range("A1:D1")
            ActiveCell.Rows("1:1").EntireRow.Select
            Selection.Delete Shift:=xlUp
            ActiveCell.Offset(-1, 0).Range("A1").Select
        Else
            Exit Sub
        End If
    Else
        Exit Sub
    End If
End Sub

jep, nu virker den lige som den skal.
skriver du et svar?

og så... tak for indsatsen

Selv tak -