How to move a row from one worksheet to another based on a met value

[verlander1]

Hi,
I'm having trouble and need help
I have to move a row from a sheet called "Continuous Improvement Form" to "Archived Continuous Improvement" when the value in column J equals 100 and I also need the row it was in, in the "Continuous Improvement Form" to delete and the contents of that sheet to all move up one row.
I know this requires a macro and I've tried to write one and use similar codes I found online as a template but I'm pretty bad at code. Any help would be appreciated. Thanks.

 

[Stridhan]

paste in codewindow for sheet "Continuous Improvement Form"

try in a copy

Private Sub Worksheet_Change(ByVal Target As Range)

Dim lr As Integer, x As Integer
Dim Cws As Worksheet
Dim Aws As Worksheet
On Error GoTo myExit
Set Aws = ThisWorkbook.Sheets("Archived Continuous Improvement")
Set Cws = ThisWorkbook.Sheets("Continuous Improvement Form")
lr = Cws.Cells(Rows.Count, "J").End(xlUp).Row
Application.EnableEvents = False
For x = lr To 2 Step -1
    If Cells(x, "J").Value = 100 Then
        Cws.Rows(x).EntireRow.Copy Aws.Range("A" & Aws.Cells(Rows.Count, "J").End(xlUp).Row).Offset(1)
        Cws.Rows(x).Delete shift:=xlUp
    End If
Next x
myExit:
Application.EnableEvents = True
End Sub