Copy columns from table1 to table2

Hi experts,

I need some assistance on this sample file. I have table1 in sheet1 and table2 in sheet2. I would like o copy column A and D if column D has "InActive" value. And after copying to table2, I like those rows to be deleted from table1.

Thank you!

Hi,

at Excel very beginner level - so without any code ! - just operating Excel basics like for example a filter …
So a VBA procedure is really really needed ?

According to your attachment as a VBA starter :

PHP Code: 

Sub Demo1()
          Const C = "InActive"
            Dim Rg As Range
    With Sheet1.ListObjects(1)
        If IsNumeric(Application.Match(C, .Range.Columns(4), 0)) Then
            Application.ScreenUpdating = False
        With Sheet2.ListObjects(1).ListColumns(1).Range.Rows
            Set Rg = .Cells(.Rows.Count)(2 + IsEmpty(.Cells(.Rows.Count)))
        End With
           .Range.AutoFilter 4, C
            Union(.DataBodyRange.Columns(1), .DataBodyRange.Columns(4)).Copy Rg
           .DataBodyRange.EntireRow.Delete
           .Range.AutoFilter 4
            Application.ScreenUpdating = True
            Set Rg = Nothing
        End If
    End With
End Sub 


► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄