Question: how to copy data from one table to another in vba?
Answer: Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lRow As Long.
If Not Intersect(Target, [Table1[S/N]]) Is Nothing Then.
x = ActiveSheet.ListObjects(1).ListRows(Target.Row - 2).Range.
With Sheet2.
If .[a2] = "" Then lRow = 2 Else lRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1.