Как сделать так, чтобы мой записанный макрос перешел к следующему человеку в моем списке

Question

У меня есть список с именами, и я записал макрос, чтобы помочь мне копировать, вставлять, форматировать и переходить к следующим именам в списке. Это работает, однако чего-то важного не хватает, поскольку макрос не сохраняет ранее записанные данные и не перемещается к следующим именам в списке.

Я запустил макрос из разных строк и попытался снова записать макрос, но он не работает должным образом

Sub Accrual()
'
' Accrual Macro
'

'
    ActiveSheet.Range("$A$1:$G$1007").AutoFilter Field:=1, Criteria1:= _
        "doe, john"
    Range("A2").Select
    Selection.Copy
    Sheets("Sheet4").Select
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("Sheet3").Select
    Range("B2:C2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet4").Select
    Range("C2").Select
    ActiveSheet.Paste
    Range("E2").Select
    Sheets("Sheet3").Select
    Range("F2:F6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet4").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Range("A3").Select
End Sub

Я ожидаю, что мой записанный макрос пойдет по моему списку имен, скопирует, вставит и отформатирует все имена в списке и сохранит все данные