Hi Akash

You can try this code it should hopefully work for you. open VBE or
press Alt and F11 then in the project explorer pane double click sheet
1 and then paste the following code into the module

Option Explicit
Dim MyStr As String

Private Sub Worksheet_Change(ByVal Target As Range)
MyStr = Target.Address
Range(MyStr).Copy
Sheets(2).Range(MyStr).PasteSpecial
Application.CutCopyMode = False
End Sub

Hope this is of some help to you

S