Been working on this and got it going. Someone skilled, might be able to tidy it up for me. I placed a blank column between the names & data tables, so I could use 'CurrentRegion'. This then pastes to Sheet2 and then a new macro copied and pastes that to a revised table after applying Unique Records Filter to current table. It's a lot of duplication to achieve an end, but at least it works. The new codes:
Sub Unique1()
Dim TimeToRun
Sub StartTimer()
Call ScheduleCopy_R1
End Sub
Sub Copy_R1()
Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Set copySheet = Worksheets("Sheet1")
Set pasteSheet = Worksheets("Sheet2")
copySheet.Range("A2:N2").Copy
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
StartTimer
Call Unique2
End Sub
Sub ScheduleCopy_R1()
TimeToRun = Now + TimeValue("00:00:02")
Application.OnTime TimeToRun, "Copy_R1"
End Sub
Sub StopTimer()
Application.OnTime TimeToRun, "Copy_R1", , False
End Sub
Sub Unique2()
Range("A1").CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=Range( _
"Q1:T1"), Unique:=True
Range("F1").CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=Range( _
"U1:X1"), Unique:=True
Range("K1").CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=Range( _
"Y1:AB1"), Unique:=True
End Sub