cut table B data and move to table A depending on criteria

[mark692]

hi guys i have 2 tables A and B, i want to cut and paste the data on table B to A from column Date to Amount, but depending on the table B's column "remarks", i only want to cut and paste the line that has a remark "to copy",,
is it possible on VBA macro?
here is my sample

Book1
	A	B	C	D	E	F	G	H	I	J	K
1
2		Table A					Table B
3		date	name	amount	remarks		date	name	amount	remarks
4		1-Jun	jan	2000			4-Aug	ina	500	to copy
5		2-Jul	joy	2500			5-May	jason	658	don’t
6		1-Mar	kim	600			1-Jun	miguel	5963	don’t
7		4-Jun	gerald	500			7-Aug	bimby	154	don’t
8							5-Jun	kris	6562	to copy
9							5-Feb	joshua	100	don’t
10							5-Mar	cong	50	to copy
11							5-Apr	cristy	9600	don’t
12
13
14
15
16
17
18
19
20
Sheet1

 

[kennypete]

Here's a solution to that:

Sub CopyTable2ToCopyRowsToTable1()
   
    Dim lobTable1 As ListObject
    Set lobTable1 = Sheet1.ListObjects("Table1")
   
    Dim lobTable2 As ListObject
    Set lobTable2 = Sheet1.ListObjects("Table2")
   
    Dim arr As Variant
    arr = lobTable2.DataBodyRange.Value

    Dim i As Long
   
    Dim LRow As ListRow
   
    For i = LBound(arr) To UBound(arr)
        If arr(i, 4) = "to copy" Then
            Set LRow = lobTable1.ListRows.Add
            With LRow
                .Range(1) = arr(i, 1)
                .Range(2) = arr(i, 2)
                .Range(3) = arr(i, 3)
            End With
        End If
    Next i

End Sub

Source sheet, noting these are Table1 and Table2 respectively:

cut-table-b-data-and-move-to-table-a-depending-on-criteria.1136358.xlsm
	A	B	C	D	E	F	G	H	I	J
1		date	name	amount	remarks		date	name	amount	remarks
2		1-Jun	jan	2000			4-Aug	ina	500	to copy
3		2-Jul	joy	2500			5-May	jason	658	don’t
4		1-Mar	kim	600			1-Jun	miguel	5963	don’t
5		4-Jun	gerald	500			7-Aug	bimby	154	don’t
6							5-Jun	kris	6562	to copy
7							5-Feb	joshua	100	don’t
8							5-Mar	cong	50	to copy
9							5-Apr	cristy	9600	don’t
Sheet1

I have also presumed you mean copy and not cut.

Result: