Code Macro kiểm tra đối chiếu BHYT và HIS

Sub BHXH_thieu() ' ' Kiem tr BHXH_thieu Macro ' '     Sheets("bh").Select     Range("A2").Select     ActiveCell.FormulaR1C1 = "=RC[1]&RC[14]&RC[19]"     Range("A2").Select     Selection.AutoFill Destination:=Range("A2:A33333")     Range("A2:A33333").Select     Columns("A:A").Select     ActiveWorkbook.Names.Add Name:="ds", RefersToR1C1:="=bh!C1"     'Application.Goto Reference:="ds"     Sheets("his").Select     Range("A2").Select     ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[1]&RC[14]&RC[19],ds,1,0)"     Range("A2").Select     Selection.AutoFill Destination:=Range("A2:A33333")     Range("A2:A33333").Select     ActiveSheet.Range("$A$1:$A$33333").AutoFilter Field:=1, Criteria1:="#N/A" End Sub

Sub HIS_Thieu()
'
' HIS_ Macro
'
    Sheets("his").Select
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "=RC[1]&RC[14]&RC[19]"
    Range("A2").Select
    Selection.AutoFill Destination:=Range("A2:A33333")
    Range("A2:A33333").Select
    Columns("A:A").Select
    ActiveWorkbook.Names.Add Name:="aa", RefersToR1C1:="=his!C1"
    Sheets("bh").Select
    
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[1]&RC[14]&RC[19],aa,1,0)"
    Range("A2").Select
    Selection.AutoFill Destination:=Range("A2:A33333")
    Range("A2:A33333").Select
    Columns("A:A").Select
    Selection.AutoFilter
    
    ActiveSheet.Range("$A$1:$A$33333").AutoFilter Field:=1, Criteria1:="#N/A"

End Sub