Run Time error 424 in code.

[fvisions]

I am getting a Run time error 424 Object required for the code line starting with I = Worksheets….

Sub MoveRowBasedOnCellValue()

Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("InstallationWKG").UsedRange.Row.Count
J = Worksheets("Notes").UsedRange.Rows.Count
If J = 1 Then
If Appication.worksheetFunctio.CountA(Worksheets("Notes").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("InstallationWKG").Range("v1:v" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "end" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Notes").Range("a" & J + 1)
J = J + 1
End If
Next
Application.ScreenUpdating = True
End Sub

 

[fvisions]

How do I take the same code and pull all rows for NO CHANGE and move them to row 10 in the Notes Tab?

'delete No Change Items and copy to Notes tab

Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Installation wkg").UsedRange.Rows.Count
J = Worksheets("Notes").UsedRange.Rows.Count
J = 1
'If J = 1 Then
'If Appication.WorksheetFunction.CountA(Worksheets("Notes").UsedRange) = 0 Then J = 0
'End If
Set xRg = Worksheets("Installation wkg").Range("v1:v" & I)
' On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "NO CHANGE" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Notes").Range("a" & J + 1)
J = J + 1
End If
Next
Application.ScreenUpdating = True
End Sub

 

[Fluff]

Change J=1 to J=9

 

[fvisions]

Thank you so much for your time. I am a novice in VBA and miss the smallest of code, so thank you so much for your time. You are the best!!

 

[Fluff]

You're welcome & thanks for the feedback.