空のセルによってエラーが発生しないで行全体をコピーする方法はありますか？

Question

は私が行全体をコピーしたいのですが、最初または最後の行のいずれかの空のセルがある場合に問題があり、myRange.Copyの行はエラーメッセージを表示します

Sub SaveLastLine() 

    Dim WB As Workbook 
    Dim myRange As Range 

    'copy the content 
     Set myRange = Union(Range(Range("B1:B3"), Range("B1:B3").End(xlToRight)), _ 
          Range(Range("B1").End(xlDown), Range("B1").End(xlDown).End(xlToRight))) 
     myRange.Copy 

    'paste the content 
     Set WB = Workbooks.Add 
     WB.ActiveSheet.Range("A1").PasteSpecial 

End Sub 

「そのコマンドは複数選択で使用することはできません」空のセルがいくつあっても行をコピーするにはどうすればいいですか？

誰でも教えてください。それは範囲内のすべての行の行全体を引っ張るよう

Answer 1

はあなたの範囲の設定を変更し

：

Dim myRange 
Set myRange = ActiveSheet.Range("B1:B3") 
myRange.EntireRow.Copy 

を次に新しいブック