Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range, i!, x!
    Set rng = Intersect(Range("B2:U11"), Target)
    If Not rng Is Nothing Then
        For Each rng In Target
            With ThisWorkbook.Worksheets(rng.Row)
                i = .Cells(Rows.Count,  1 ).End(xlUp).Row +  1 
                .Cells(i,  1 ).Value = Now
                For x =  2  To  21 
                    .Cells(i, x).Value = ThisWorkbook.Worksheets( 1 ).Cells( _
                        rng.Row, x)
                Next
            End With
        Next
    End If
End Sub