Using active cell move entire row from one table to another

Hello Everyone,

Hoping someone can please assist with the below code. I have two tables on a sheet (Table1 and Table2). When a button on the sheet (called “Move Above”) is clicked, the entire row based on the active cell is supposed to move up the last row of the Table1 from Table2. The problem is the correct row where the active cell is not being moved. Instead, the row above the active cell it is moved. Please help me correct this, any assistance is greatly appreciated. The workbook is attached.

Code:

---

Option Explicit
 
Sub Move_AboveCutline()
' Macro to move the selected row from the Table to Table_1
    Dim Tbl As ListObject
    Dim NewRow As ListRow
 
    Set Tbl = Range("Table1").ListObject
    Set NewRow = Tbl.ListRows.Add(AlwaysInsert:=True)
 
    If Not Intersect(ActiveCell, ActiveSheet.ListObjects("Table2").DataBodyRange) Is Nothing Then
        Intersect(ActiveCell.EntireRow, Sheet1.ListObjects("Table2").DataBodyRange).Select
    Else
        MsgBox "You have not selected a row to move", vbInformation, "Move Row"
        Exit Sub
    End If
 
    Selection.Cut
 
    NewRow.Range = Selection.Value
 
    'Delete the active cell's entire row
    ActiveCell.EntireRow.Delete
 
    Application.CutCopyMode = False
 
End Sub

---

try this

Code:

---

Sub Move_AboveCutline()' Macro to move the selected row from the Table to Table_1
    Dim Tb1 As ListObject
    Dim NewRow As ListRow
 
    Set Tb1 = Range("Table1").ListObject
   
 
    If Not Intersect(ActiveCell, ActiveSheet.ListObjects("Table2").DataBodyRange) Is Nothing Then
        Intersect(ActiveCell.EntireRow, Sheet1.ListObjects("Table2").DataBodyRange).Select
    Else
        MsgBox "You have not selected a row to move", vbInformation, "Move Row"
        Exit Sub
    End If
 Set NewRow = Tb1.ListRows.Add(AlwaysInsert:=True)
    Selection.Offset(1).Cut
 
    NewRow.Range = Selection.Offset(1).Value
 


  Selection.Offset(1).Delete
 
 
End Sub

---

worked like a charm. thank you kindly for the assist!!!

no problem, glad to help.