Hello, I hope you can help me with the following, I have a "transaction" table in "Sheet1" which I feed with data that I have in "Sheet2" the idea is to copy the range of data from Sheet2 and paste it just below the table in my Sheet1. When trying to do it, it only manages to paste the first row but it fails when it is more than one row of data since it only continues to paste a single row. I appreciate help me. I show what I'm wearing:
Dim ws As Worksheet
Dim newrow As ListRow
Dim Text1 As String
Dim Text2 As String
Dim Text3 As String
Set ws = ActiveSheet
Set newrow = ws.ListObjects("transaccion").ListRows.Add
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
With newrow
Text1 = Worksheets("Hoja2").Range("a2").Value
Text2 = Worksheets("Hoja2").Range("b2").Value
Text3 = Worksheets("Hoja2").Range("c2").Value
.Range(1) = Text1
.Range(2) = Text2
.Range(3) = Text3
End With
End Sub