Создание макросов методом протоколирования действий

Example
As it applies to the Range object.

This example activates the cell three columns to the right of and three rows down from the active cell on Sheet1.

Worksheets("Sheet1").Activate
ActiveCell.Offset(rowOffset:=3, columnOffset:=3).Activate
				
This example assumes that Sheet1 contains a table that has a header row. The example selects the table, without selecting the header row. The active cell must be somewhere in the table before the example is run.

Set tbl = ActiveCell.CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _
    tbl.Columns.Count).Select

Sub tt()
    Set r = ActiveCell
    Set r1 = Range(r, r.Offset(8, 2))
    Set r2 = Range(r.Offset(, 5), r.Offset(8, 7))

    Call F(r1)
    Call E(r2)

    MsgBox "Теперь поменяем местами..."
    
    Call E(r1)
    Call F(r2)

End Sub

Sub F(rrr)
    Dim el
    rrr.Cells.Interior.ColorIndex = 0
    For Each el In Array(1, 2, 3, 4, 7, 10, 13, 14, 16, 19, 22, 25)
        rrr(el).Interior.Color = vbBlue
    Next
End Sub

Sub E(rrr)
    Dim el
    rrr.Cells.Interior.ColorIndex = 0
    For Each el In Array(1, 2, 3, 4, 7, 10, 13, 14, 16, 19, 22, 25, 26, 27)
        rrr(el).Interior.Color = vbBlue
    Next
End Sub

Option Explicit

Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long)

Sub tt()
    Dim r As Range, r1 As Range, r2 As Range

    Set r = ActiveCell
    Set r1 = Range(r, r.Offset(8, 2))
    Set r2 = r1.Offset(, 5)

    Call F(r1): Call E(r2)
    MsgBox "Теперь поменяем местами..."
    Call E(r1): Call F(r2)

End Sub

Sub F(rrr As Range)
    Dim el: rrr.Cells.Interior.ColorIndex = 0
    For Each el In Array(1, 2, 3, 4, 7, 10, 13, 14, 16, 19, 22, 25)
        Sleep 50: rrr(el).Interior.Color = vbBlue
    Next
End Sub

Sub E(rrr As Range)
    Dim el: rrr.Cells.Interior.ColorIndex = 0
    For Each el In Array(1, 2, 3, 4, 7, 10, 13, 14, 16, 19, 22, 25, 26, 27)
        Sleep 50: rrr(el).Interior.Color = vbBlue
    Next
End Sub