Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 And Target.Row 1 Then

x = 3 * Target.Row - 4
Sheet2.Cells(x + 0, 1) = Target.Value
Sheet2.Cells(x + 1, 1) = Target.Value
Sheet2.Cells(x + 2, 1) = Target.Value

End If

End Sub

The above code should be in the module for sheet1 in your exampl

--
mangesh_yada

-----------------------------------------------------------------------
mangesh_yadav's Profile: http://www.excelforum.com/member.php...fo&userid=1047
View this thread: http://www.excelforum.com/showthread.php?threadid=27690