Pasting A Value Into A Filter

Hi,

Thanks for your help so far, I've written my next piece of code which copies the active line from the sheet once the filter has been applied and pastes it into a new workbook.

However, when pasting I can only write the code to get it to paste into cell A2 when I'd want to paste it into a new row underneath thus avoiding the "arrivals board" effect.

Thanks,
Mark

Dim CopiedNumber As Single
Dim wsL As Worksheet
Dim ws As Worksheet
Dim rng As Range
Dim rng2 As Range
Dim Lst As ListObject

Application.ScreenUpdating = False

CopiedNumber = Sheets("Validation Mainframe").Range("C4")

Sheets("Validations").Select
Range("A1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$S$2970").AutoFilter Field:=1, _
Criteria1:=CopiedNumber

Set wsL = Sheets("Validations")
Set Lst = Sheets("Validations").ListObjects(1)

With Lst.AutoFilter.Range
On Error Resume Next
Set rng2 = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
End With

If rng2 Is Nothing Then
MsgBox "No data to copy"
Else
Set ws = Sheets("Validation Changes")
Set rng = Lst.AutoFilter.Range
rng.Offset(1, 0).Resize(rng.Rows.Count - 1) _
.SpecialCells(xlCellTypeVisible).Copy _
Destination:=ws.Range("A2")
End If

Application.ScreenUpdating = True