Фильтровать данные, копировать измененное состояние и обновлять в другом файле

Question

У меня есть 2 файла Excel

1. Файл отслеживания
2. Файл инвентаризации

Я бы нравится фильтровать только изменения в столбце G «Изменения»

копировать измененное имя группы « Сведения о состоянии обновления » из файла отслеживания в файл инвентаризации Статус обновления поле сведений

с использованием кода VBA,

Как я могу добиться этого, может кто-нибудь помочь мне, пожалуйста.

В основном изменения статуса в файле трекера из файла трекера в соответствующую группу, мы обновляем статусы в файле инвентаря

Option Explicit

Sub Lookup()

    Dim rnge As Range
    Dim cl As Range

    Workbooks("Trackers 040820 PM.xlsx").Activate
    Worksheets("Central").Activate

    With Worksheets("Central").Range("A1:G1")
        .AutoFilter field:=7, Criteria1:="Change"
    End With


    ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Select

    'set rnge = Range("A1", Range("A1").End(xlDown)).Cells.SpecialCells(xlCellTypeVisible)

    With ActiveSheet.AutoFilter.Range

        For Each cell In Selection
        'If Selection.EntireRow.Hidden = True Then

            srchval = ActiveCell.Offset(1, 3).Value
            chgval = ActiveCell.Offset(3, 0).Value

            On Error Resume Next

            Workbooks("Interim Inventory Tracker - All States 040620 v1.xlsx").Activate

            get_row_number = Sheets("Main Data input").Range("D:D").Find( _
              What:=srchval, _
              LookIn:=xlValues, _
              LookAt:=xlPart, _
              SearchOrder:=xlByColumns, _
              SearchDirection:=xlNext, _
              MatchCase:=True _
              ).Row

            If get_row_number = "" Then
                'do nothing
            Else
                Workbooks("Interim Inventory Tracker - All States 040620 v1.xlsx").Activate
                Sheets("Main Data input").Range("H" & get_row_number).Value = chgval
                Workbooks("Trackers 040820 PM.xlsx").Activate
                chgval = ""
            End If
        'End If

        Next

    End With

End Sub