[[20210908115437]]　『空白行の場合、前の行を複写するマクロで、複写デ』（あっぷる）　ページの最後に飛ぶ

『空白行の場合、前の行を複写するマクロで、複写データが消えます。』（あっぷる）

標題の通りの下記のマクロ（A）を作成したのですが、（B）部分のみ実行すると、問題なく前行を複写して終了するのですが、（A）全体を実行すると、なぜか複写した前行が消えて、元の状態に戻ってしまいます。
どうしても原因がわからないため、どなたかご教授いただけないでしょうか？
よろしくお願いいたします。

（A）
Sub Macro2()

'Airレジの会計明細ファイルを取込

    ActiveWorkbook.RefreshAll

'データの範囲を取得()

    Intersect(Cells(2, 2).CurrentRegion, Cells(2, 2).CurrentRegion.Offset(1, 0)).Select

'空白セルを埋める_下方向へコピー()

    Dim blanks As Range
    If Selection.Cells.Count > 1 Then
        On Error Resume Next
        For Each blanks In Selection.SpecialCells(xlCellTypeBlanks).Areas
            If blanks.Row > 1 Then
                blanks.Rows(1).Offset(-1, 0).Copy blanks
            End If
        Next
        On Error GoTo 0
    End If

End Sub

（B）
'空白セルを埋める_下方向へコピー()

    Dim blanks As Range
    If Selection.Cells.Count > 1 Then
        On Error Resume Next
        For Each blanks In Selection.SpecialCells(xlCellTypeBlanks).Areas
            If blanks.Row > 1 Then
                blanks.Rows(1).Offset(-1, 0).Copy blanks
            End If
        Next
        On Error GoTo 0
    End If

＜使用 Excel：Office365、使用 OS：Windows10 ＞

コメント返信：

[ 一覧(最新更新順) ]

[[20210908115437]] 『空白行の場合、前の行を複写するマクロで、複写デ』（あっぷる） ページの最後に飛ぶ

[[20210908115437]]　『空白行の場合、前の行を複写するマクロで、複写デ』（あっぷる）　ページの最後に飛ぶ