它将始终位于第7行和第N列上
这就是你要尝试的吗？

Sub Sample()
    Dim ws As Worksheet
    Dim rng As Range

    '~~> Replace this with the actual sheet name
    Set ws = ThisWorkbook.Sheets("Sheet1")

    With ws
        Set rng = ActiveCell '<~~ From Comments below

        If (rng.Row - 7) < 1 Then
            MsgBox "Cannot Paste. Row Out of bounds"
            Exit Sub
        End If

        rng.Copy

        .Cells(rng.Row - 7, "N").PasteSpecial _
        Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

        '~~> Delete the rows. For example Rows("95:101")
        .Rows((rng.Row - 6) & ":" & rng.Row).Delete Shift:=xlUp
    End With
End Sub