Modified cell paste to another worksheet

[basstreblevol]

Hello,

First time poster looking for some help.

I've done a bit of searching and I'm sure there's a simple answer but I can't seem to find it anywhere. Basically I want to paste a modified cell to another worksheet. I've been able to get the row with the modified cell copied and pasted but that's as far as I've gotten.

Here's what I have so far...

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range, nxtRow As Integer
   
    ' The variable KeyCells contains the cells that will
    ' cause an alert when they are changed.
    Set KeyCells = Range("B2:N16")
   
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

        ' Display a message when one of the designated cells has been
        ' changed. Paste modified cell on the next available row of Sheet 4

        nxtRow = Sheets(4).Range("A" & Rows.Count).End(xlUp).Row + 1
        Target.EntireRow.Copy _
        Destination:=Sheets(4).Range("A" & nxtRow)
        MsgBox "Cell " & 1 & Target.Address & " has changed."
    End If
End Sub

Thanks!

 

[Deepak]

It's working fine!
What' the issue?

 

[basstreblevol]

It's working fine!
What' the issue?

I'd like to paste the single modified cell instead of the whole row.

 

[Deepak]

Change the below line

Target.Copy _
        Destination:=Sheets(4).Range("A" & nxtRow)

 

[basstreblevol]

Change the below line

Target.Copy _
        Destination:=Sheets(4).Range("A" & nxtRow)

Worked perfectly! Thanks, I knew it was an easy one!