Vba to copy Filtered rows from table to another table

[Sintek]

Hi All

I have had no results with the following code. I have searched for hours and still can't come up with helpful input.
The below code is supposed to take the TRow rows to Hist table and if I change the Trow value, it must then take that rows to Hist table and so on etc....It is driving me nuts...Please assist. i have added my workbook.

Sub Move()
Dim TRow As String, LastRow As Long
TRow = Sheets("Temp").Range("C11")
LastRow = Sheets("Hist").Range("a" & Rows.Count).End(xlUp).Row


With Sheets("Temp")
With .Range("A1").CurrentRegion
            .AutoFilter 2, TRow
            .Offset(1).Copy Sheets("Hist").Range("A" & LastRow)
            .Offset(1).EntireRow.Delete xlShiftUp
        End With
         ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=2
End With
Application.ScreenUpdating = True
End Sub

[Sintek]

Hey all...Solved as below...thanks xlnitwit

Sub Move()
    Application.ScreenUpdating = False
    Dim lastRow As Long
    Dim TRow As String
    TRow = Sheets("Temp").Range("C11")
    
    With Sheets("Hist")
        lastRow = .Range("a" & .Rows.Count).End(xlUp).Row
        If .Cells(lastRow, "A").Value <> vbNullString Then lastRow = lastRow + 1
    End With
    
    With Sheets("Temp")
        With .Range("A1").CurrentRegion
            .AutoFilter 2, TRow
            If .Columns(1).SpecialCells(xlCellTypeVisible).Count > 1 Then
                With .Resize(.Rows.Count - 1).Offset(1)
                    .Copy Sheets("Hist").Cells(lastRow, "A")
                    .Columns(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
                End With
            End If
        End With
        .AutoFilterMode = False
    End With
    Application.ScreenUpdating = True
End Sub