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
Bookmarks