Moving multiple rows from one sheet to another using AutoFilter to cut and delete

[Jakezer]

Hello,
Few days ago I asked for a way to move rows from one sheet to another, got two methods, one with autofilter and one without,
The no-autofilter one worked for me but on a single row each time since my code is being refreshed continuesly, didnt work on multiple rows en masse, so am tryna use the AutoFilter one suggested by Mr. kevin9999
I edited it a little since my code is being refreshed and so the rows number is variable, also I used cut and delete instead of copy and delete, since cut takes the checkbox with and copy doesnt;

I faced these issues:
- Error highliting in yellow the line where i used cut property
- It cuts all the rows not only the ones containing "0" in range D
- When resizing the rows, the checkboxes below the cutted area get bugged or deformed (their tick box become smaller in appearance but the big checkbox size remain the same),
is there a way to prevent that from happening please? (like avoiding to use resize, or adding application.screen update = false or something ? idk )

Sub Move()
    Dim ws1 As Worksheet, ws2 As Worksheet, lr As Long
    Set ws1 = Worksheets("Sheet1")
    Set ws2 = Worksheets("Sheet2")
    lr1 = ws1.Cells(Rows.Count, 1).End(xlUp).Row
    lr2 = ws2.Cells(Rows.Count, 1).End(xlUp).Row + 1
 For i = 1 To lr1
    With ws1.Cells(i).CurrentRegion
        .AutoFilter 4, "0"
        .Offset(1).Resize(.Rows.Count - 1, 5).cut ws2.Cells(lr2, 1)    '  Error 1004 (eventhough changes are being applyied)
        .Offset(1).Resize(.Rows.Count - 1).EntireRow.Delete
        .AutoFilter
    End With
    Next i
End Sub

 

[Jakezer]

Okay, I added Dim lr1 As Long, Dim lr2 As Long like this and now it cuts everything but without the checkboxes, and it leaves them deformed in sheet1

Sub Move()
    Dim ws1 As Worksheet, ws2 As Worksheet, lr1 As Long, lr2 As Long
    Set ws1 = Worksheets("Sheet1")
    Set ws2 = Worksheets("Sheet2")
    lr1 = ws1.Cells(Rows.Count, 1).End(xlUp).Row
    lr2 = ws2.Cells(Rows.Count, 1).End(xlUp).Row + 1
 For i = 1 To lr1
    With ws1.Cells(i).CurrentRegion
        .AutoFilter 4, "0"
        .Offset(1).Resize(.Rows.Count - 1, 5).cut ws2.Cells(lr2, 1)    '  Error 1004 (eventhough changes are being applyied)
        .Offset(1).Resize(.Rows.Count - 1).EntireRow.Delete
        .AutoFilter
    End With
    Next i
End Sub

 

[kevin9999]

The following code has been written assuming your data is exactly as you indicated in This post.

Option Explicit
Sub jakezer_2()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lr1 As Long, lr2 As Long, i As Long
    Dim c As Range
    Set ws1 = Sheet1
    Set ws2 = Sheet2
    lr1 = ws1.Cells(Rows.Count, 4).End(3).Row
    lr2 = ws2.Cells(Rows.Count, 1).End(3).Row + 1
    
    For i = lr1 To 2 Step -1
        If ws1.Cells(i, 4) = 0 Then
            ws1.Cells(i, 5).Cut ws2.Cells(lr2, 5)
            ws1.Range(ws1.Cells(i, 1), ws1.Cells(i, 4)).Copy ws2.Cells(lr2, 1)
            ws1.Cells(i, 1).EntireRow.Delete
            lr2 = lr2 + 1
        End If
    Next i
End Sub

 

[Jakezer]

Thanks but.. Am sorry if I didnt point this out at the first place but that was just a portion of an constantly-refreshing table, rows number can be changed at any given moment
U wrote .End(3) because I had 4 rows right? How do I code smth that loops through all the rows till the last one that contains data in either of any of the cells A - D pls ? I change it to .End(xlUp) right ? Or add smth like .UsedRows ?

 

[kevin9999]

Thanks but.. Am sorry if I didnt point this out at the first place but that was just a portion of an constantly-refreshing table, rows number can be changed at any given moment
U wrote .End(3) because I had 4 rows right? How do I code smth that loops through all the rows till the last one that contains data in either of any of the cells A - D pls ? I change it to .End(xlUp) right ? Or add smth like .UsedRows ?

.End(3) = .End(xlUp)

 

[kevin9999]

This is what Sheet 1 looks like before I run the code in post #3
EDIT: Unfortunately, the XL2BB tool is not picking up the checkboxes in column E. I assure you, they are being copied.

Filter and Cut.xlsb
	A	B	C	D	E
1	Subject	Date	Sender	State	Verification
2	a	6/3/2022	sender	1
3	b	23/3/2022	sender	0
4	c	28/3/2022	sender	1
5	d	28/3/2022	sender	2
6	a	6/3/2022	sender	1
7	b	23/3/2022	sender	0
8	c	28/3/2022	sender	1
9	d	28/3/2022	sender	2
10
Sheet1

Sheet 2 looks like this before running the code

Filter and Cut.xlsb
	A	B	C	D	E
1	Subject	Date	Sender	State	Verification
2
Sheet2

After the code is run, Sheet 1 looks like this

Filter and Cut.xlsb
	A	B	C	D	E
1	Subject	Date	Sender	State	Verification
2	a	6/3/2022	sender	1
3	c	28/3/2022	sender	1
4	d	28/3/2022	sender	2
5	a	6/3/2022	sender	1
6	c	28/3/2022	sender	1
7	d	28/3/2022	sender	2
8
Sheet1

and Sheet 2 looks like this

Filter and Cut.xlsb
	A	B	C	D	E
1	Subject	Date	Sender	State	Verification
2	b	23/3/2022	sender	0
3	b	23/3/2022	sender	0
4
Sheet2

 

[Jakezer]

Working like a charm, thank you so much bro and sorry if there was any misunderstanding.

 

[kevin9999]

Working like a charm, thank you so much bro and sorry if there was any misunderstanding.

You're welcome, and thanks for the feedback.