空白行を無視してコピーするマクロについて

下記のA列を参照してO列の最終行までコピーするマクロを組みました。
このコピーする際に入力されている行があればそのセルは無視（無効）として
最終行までコピーすることはできるのでしょうか。
分かる方がいたら教えてくださいませ(;_;)

LastRow = Cells(Rows.Count, "A").End(xlUp).Row
If LastRow < 8 Then Exit Sub
Range("O7:O" & LastRow).Value = Range("O7").Value

No.1 ベストアンサー 回答者： t_fumiaki 回答日時： 2017/10/05 15:29

最後の部分を以下すれば可能

Range("O7:O" & LastRow).SpecialCells(xlCellTypeBlanks).Value = Range("O7").Value

この回答へのお礼

そんな簡単に出来るものなのですね！
ありがとうございます☆

お礼日時：2017/10/05 17:12