行1の3行ごとにマージする

Question

1行目の3つのセルをすべてマージしようとしています（B1から始まり、マージする最後のセルはFYです。つまりFW、FX & FYをマージする必要があります）。私はこれを使って3列ごとに列をマージしましたが、行1を横切るようにこれを変更する方法はありますか？

Function MergeHeaders() 
Application.DisplayAlerts = False 

Dim RgToMerge As Range 

For i = 3 To ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row Step 3 

Set RgToMerge = Range(Cells(i, 3), Cells(i + 1, 3)) 
With RgToMerge 
    .Merge 
    .HorizontalAlignment = xlCenterAcrossSelection 
    .VerticalAlignment = xlCenter 
End With 

Next i 
End Function 

Answer 1

これ以上のものはありますか？

Function MergeHeaders() 
Dim RgToMerge As Range 

    Application.DisplayAlerts = False 

    For i = 2 To ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column Step 3 
    Set RgToMerge = Range(Cells(1, i), Cells(1, i + 2)) 
    With RgToMerge 
     .Merge 
     .HorizontalAlignment = xlCenterAcrossSelection 
     .VerticalAlignment = xlCenter 
    End With 
    Next i 
End Function