Copy and Paste in a Table

[wpm7113]

Hi There,

I got a Table with 2 column. 1st column Label as Desk, and 2nd column label as Asset. What I like to do is that, when I key in the data into the Desk cell and Asset cell, when it goto the second row, it will automatically copy the last value from desk column

Example: Assuming this is the table:

Desk | Asset
----------------------------
Desk01 | Asset01 "Once I press Tab, it will goto the next row, Then it copy the last record which is "Desk01" down.
Desk01 | Asset02


Please advise how to do that in VBA.

Thanks

[JEC.]

Behind the sheet module

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 With Range("A" & Rows.Count).End(xlUp)
  If Target.Address = .Address Then
    If .Offset(-1, 1) <> "" Then .Resize(, 2) = Array(.Offset(-1), "Asset" & Format(Val(Right(.Offset(-1, 1), 2)) + 1, "00"))
  End If
 End With
End Sub

[wpm7113]

Hi Jec,

This is good, but I might not explain it properly.

1. in the Asset Column, when I entered the data and press tab, it will goto next row, then it will copy the data from above.
2. I want to cursor to move to right automatically, so that I can enter the second asset info.

See attached file.

Many thanks