Looks like you were headed in the right direction, but you need to place the macro in the worksheet module.
The macro is acting off of column E. When one of the four key words is selected, that key word is matched up with the matching tab and the data (entire row) is copied and pasted. In your case, not sure what column you have your key words, so update as required.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sname As String
If Range("J" & Target.Row).Value = "Yes" 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
Does this help?
Bookmarks