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.