Код VBA для фильтрации столбца, копирования и вставки соседнего столбца на другом листе

Question

Я новичок в VBA, у меня есть два набора данных в столбцах Excel и A, столбец A показывает студентов и учителей, а столбец B показывает идентификационные номера студентов и учителей, например, xxx001. Я хочу отфильтровать студента в столбце A и скопировать соответствующий идентификационный номер студента в столбце B и вставить на другой лист. Есть ли код VBA, который может сделать это. Любая помощь будет принята с благодарностью.

Это код, который я пробовал, но он приводил к ошибкам и не мог работать.

Sub Stud_Filter()
Range("A1:M1").Select
        Selection.AutoFilter
        ActiveSheet.Range("$A$1:$M$13").AutoFilter Field:=9, Criteria1:="StudentID"
    End Sub

    Sub Teach_Filt()
        Range("I1:M1").Select
        Selection.AutoFilter
        ActiveSheet.Range("$I$1:$M$21").AutoFilter Field:=1, Criteria1:="TeacherID"

    End Sub