Macro to cut entire row form table depending on the value of column "M" and paste on another table

[GabyS2023]

Can someone help me rewrite this macro that I recorded? I want the entire row to delete from Table "HL" when value in column M = "Ready to ticket" and paste entire row in Table "RT" in same sheet.

Sub Readytoticket()
'
' Readytoticket Macro
'
' Keyboard Shortcut: Ctrl+Shift+T
'
    Range("B259:AA259").Select
    Selection.Cut
    Range("B234").Select
    ActiveSheet.Paste
    Range("B259:AA259").Select
    Selection.ListObject.ListRows(11).Delete
End Sub

 

[kevin9999]

It would have helped if you could have posted what your sheet looks like, however, I've based this on your existing code assuming that your HL table starts in column B, and therefore 'column M' would be field 12 of your table. Please try this on a copy of your workbook.

Option Explicit
Sub Ready_to_ticket()
    Dim Lob1 As ListObject, Lob2 As ListObject, DestRow As ListRow
    Set Lob1 = ActiveSheet.ListObjects("HL")
    Set Lob2 = ActiveSheet.ListObjects("RT")
    Set DestRow = ActiveSheet.ListObjects("RT").ListRows.Add
    
    With ActiveSheet
        .ListObjects("RT").AutoFilter.ShowAllData
        With .ListObjects("HL")
            .AutoFilter.ShowAllData
            .Range.AutoFilter 12, "Ready to ticket"
            With .DataBodyRange.SpecialCells(xlCellTypeVisible)
                .Copy DestRow.Range
                '.EntireRow.Delete          '<-- un-comment this if you also want the row to be deleted
            End With
            .AutoFilter.ShowAllData
        End With
    End With
End Sub

 

[GabyS2023]

It would have helped if you could have posted what your sheet looks like, however, I've based this on your existing code assuming that your HL table starts in column B, and therefore 'column M' would be field 12 of your table. Please try this on a copy of your workbook.

Option Explicit
Sub Ready_to_ticket()
    Dim Lob1 As ListObject, Lob2 As ListObject, DestRow As ListRow
    Set Lob1 = ActiveSheet.ListObjects("HL")
    Set Lob2 = ActiveSheet.ListObjects("RT")
    Set DestRow = ActiveSheet.ListObjects("RT").ListRows.Add
   
    With ActiveSheet
        .ListObjects("RT").AutoFilter.ShowAllData
        With .ListObjects("HL")
            .AutoFilter.ShowAllData
            .Range.AutoFilter 12, "Ready to ticket"
            With .DataBodyRange.SpecialCells(xlCellTypeVisible)
                .Copy DestRow.Range
                '.EntireRow.Delete          '<-- un-comment this if you also want the row to be deleted
            End With
            .AutoFilter.ShowAllData
        End With
    End With
End Sub

Hello! Thank your reply , it only seems to hide all rows from the table "HL", here is a image of how it looks. Unfortunately my team wants both tables in the same sheet so having them separate is not an option lol, again thank you so much

 

[kevin9999]

The code worked on a mockup I created to test the code.
If you're willing to share your actual file via Google Drive, Dropbox or similar file sharing platform - then I'll be willing to look at it again. Otherwise, I'll leave it to others to discern what's causing the problem.