Ved inds. af linie skal der kopieres fra ovenstående linie

Delvis, denne makro indsætter rækken over den aktive celle.
Hvis du svarer ja til boksen, bruger den rækken lige over, ved nej den under.

Men pas på formler fra neden af, hvis de henviser til en række ovenover, bliver de rykket.

Sub IndsaetRow()
    Dim R As Long, I As Integer, Svar As String
    R = ActiveCell.Row    'finder sidste række i A kolonnen
    Range("A" & R).Select
    ActiveCell.EntireRow.Insert Shift:=xlDown    ' indsætter række lige over den active celle
    Range("A" & R).Select
    Svar = MsgBox("Skal der kopieres fra rækken ovenover", vbYesNo)
   
    If Svar = vbYes Then
    ' Indsætter fra  rækken over
        For I = 0 To 29    ' ret her for flere kolonner 30
            If ActiveCell.Offset(-1, I).HasFormula Then    ' har celler i rækken ovenover en formel
                ActiveCell.Offset(-1, I).AutoFill _
                        Destination:=Range(ActiveCell.Offset(-1, I), ActiveCell.Offset(0, I)) _
                                    , Type:=xlFillDefault    ' hvis overstående celler har en formel trækkes den ned,Fra A kolonnen og 30 kolonner til højre
            Else
                ActiveCell.Offset(0, I).Value = ActiveCell.Offset(-1, I).Value
            End If
        Next
    Else
    ' Indsætter fra  rækken under
        For I = 0 To 29    ' ret her for flere kolonner 30
            If ActiveCell.Offset(1, I).HasFormula Then    ' har celler i rækken ovenover en formel
                ActiveCell.Offset(1, I).AutoFill _
                        Destination:=Range(ActiveCell.Offset(1, I), ActiveCell.Offset(0, I)) _
                                    , Type:=xlFillDefault    ' hvis overstående celler har en formel trækkes den ned,Fra A kolonnen og 30 kolonner til højre
            Else
                ActiveCell.Offset(0, I).Value = ActiveCell.Offset(1, I).Value
            End If
        Next
    End If
    Range("A" & R).Select
End Sub

Super, det var lige hvad jeg skulle bruge.
Har du et svar :o)

et svar ;-))