Copy from one ListObject to another VBA - excel

Question

More a question of writing nice VBA code here, since it technically works. I have a simple task - I need to copy data from one ListObject (2 columns from 4-column table) and add it to the end of another 2-column table (and have the Excel table autoexpand).
I created Range Trans_log, for addressing those 2 columns I need to copy. I'm targeting the newly created ListRow through newrow, in order not to accidentially paste data somewhere in the middle of the table.
However is there a neater way to do this, instead of using With, .Activate and ActiveCell ?
Sub Copy()
Dim newrow As ListRow
Set newrow = ActiveSheet.ListObjects("Log").ListRows.Add
ActiveSheet.Range("Trans_log").Copy
With newrow
.Range(1).Activate
ActiveCell.PasteSpecial xlPasteValues
End With
End Sub

Answer 1

You can do something like this - directly assign the values instead of copy/paste
Sub Copy()
Dim newrow As ListRow
With ActiveSheet
Set newrow = .ListObjects("Log").ListRows.Add()
newrow.Range.Value = .Range("Trans_log").Value
End With
End Sub
EDIT: for copying multiple rows
Sub Copy()
Dim rw As Range
Dim newrow As ListRow
Dim lst As ListObject, sht As Worksheet
Set sht = Sheets(1)
Set lst = sht.ListObjects("Log")
'loop over rows in named range
For Each rw In sht.Range("Trans_log").Rows
'only copy rows with data
If Application.CountA(rw) > 0 Then
Set newrow = lst.ListRows.Add()
newrow.Range.Value = rw.Value
End If
Next rw
End Sub