Sure,

You can use an Worksheet_Change event.  You didn't mention any specific
ranges, so I'll just give an example:

Private Sub Worksheet_Change(ByVal Target As Range)
   '   Code goes in the Worksheet specific module
   Dim rng As Range
       '   Set Target Range
       Set rng = Range("D:D")
            '   Only look at single cell changes
           If Target.Count > 1 Then Exit Sub
           '   Only look at that range
           If Intersect(Target, rng) Is Nothing Then Exit Sub
           '   Action if Condition(s) are met
           Target.EntireRow.Copy Sheets(Target.Text).Cells(Rows.Count,
"A").End(xlUp).Offset(1)
End Sub

Where column D is the relevant sheet name is selected.

Hope that helps,

Smitty