moving row to new sheet when conditions are met

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sname As String

If Range("I" & Target.Row).Value <> "" Then
    sname = Range("E" & Target.Row).Value
    Target.EntireRow.Copy Worksheets(sname).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    Target.EntireRow.Delete
End If
End Sub

This what I have now. I did change the "J" to and "I" cause I didn't need that many columns