Copy rows to other sheets based on value in column

Hello,

I have worked through this topic and the have modified the code for my worksheet, but I am having a problem with the F5 function.
It works great when run from within the VB for applications application, but not when run from with in the worksheet. Any ideas to solve this problem.
Code below.

Sub MoveRowBasedOnCellValue()
Dim xRg As Range
Dim xCell As Range
Dim xStr As String
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Register").UsedRange.Rows.Count
J = Worksheets("Open").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Open").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Register").Range("P2:P" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
xStr = CStr(xRg(K).Value)
If xStr = "ISSUED" Or xStr = "PENDING" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Open").Range("A" & J + 1)
J = J + 1
End If
Next
Application.ScreenUpdating = True
MsgBox "Data transfer completed!", vbExclamation, "Status"
End Sub