VBA_Move and Delete a cell with condition

[lokjing]

Dear Mr. Excel,

I have a masterlist file with over 1k row and on the column E I have a employment status which has data list as "Active" and "Inactive" so I need you to help me as I know nothing with VBA.

I need to move rows that contain "Inactive" to another sheet and then that row will delete automaticall on a click.


so can u show me the way as now it is very difficult for a VBA dummy like me.


Thanks in Advances for your kindest help.

 

[sky1in5]

Sub test()
Dim LastRow, i As Long
LastRow = Sheet1.Range("E" & Rows.Count).End(xlUp).Row
n = 1
For i = 1 To LastRow
    If Sheet1.Range("E" & i) = "inactive" Then
        
        Rows(i).Cut
        Sheet2.Activate
        Sheet2.Range("A" & n).Select
        ActiveSheet.Paste
        n = n + 1
    
    End If
Next
End Sub