Sub Maybe()
    Dim vMatch As Variant, lngRow As Long, lr As Long
    Application.ScreenUpdating = False
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    For lngRow = lr To 2 Step -1
        vMatch = Application.Match(Cells(lngRow, "A"), Cells(1, "A").Resize(lngRow - 1), 0)
        If IsNumeric(vMatch) Then Cells(lngRow, "A").EntireRow.Hidden = True
    Next lngRow
    Range("A2:A" & lr).Resize(, 2).SpecialCells(12).Copy Sheets("Sheet3").Range("A1") '<---Copies from Col A & B only
    Range("A2:A" & lr).EntireRow.Hidden = False
    Application.ScreenUpdating = True
End Sub