Copy the LISTBOX data in the first empty row

[sofas]

Hello I have this code to copy the filtered data to the result sheet but it copies over the old data how can I make it copy under the last row it has a value

Private Sub test_Click()
  Set f2 = Sheets("résultat")
  'f2.Cells.ClearContents
  a = Me.ListBox1.List
  f2.[A2].Resize(UBound(a) + 1, UBound(a, 2) + 1) = a
  c = 0
  'For c = 1 To NbCol
     'f2.Cells(1, c) = Range(NomTableau).Offset(-1).Item(1, c)
 ' Next
 ' f2.Cells.EntireColumn.AutoFit
End Sub

 

[Micron]

maybe find the last row
Lrow = Acivesheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

then use that instead of 1
f2.Cells(lrow +1, c) = Range(NomTableau).Offset(-1).Item(1, c)
lrow = lrow +1

 

[sofas]

maybe find the last row
Lrow = Acivesheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

then use that instead of 1
f2.Cells(lrow +1, c) = Range(NomTableau).Offset(-1).Item(1, c)
lrow = lrow +1

Unfortunately it didn't work for me

 

[sofas]

I tried to put it in this way but unfortunately without result

Private Sub test_Click()
Application.ScreenUpdating = False
  Set f = Sheets("Filter")
    With f
     lastRow = .Cells(.Rows.Count, "a").End(xlUp).row + 1
End With
  n = ListBox1.ListCount
  Tbl = Me.ListBox1.List
 
  f.[a6].Resize(n, 5) = Application.Index(Tbl, Evaluate("Row(a:lastrow" & n & ")"), Array(1, 2, 3, 4, 8))
  c = 0
 
 
End Sub