空白以外の行のみをコピーして最初の空白の行に貼り付けます

Question

これはばかげて単純な場合、私はVBの新機能ですので謝ります。注文フォームを注文の連続登録に転送するマクロがあります。代わりに、範囲B2の

Range("B2:X2").Select 
Application.CutCopyMode = False 
Selection.Copy 
Sheets("Register of Orders").Select 
Range("B9").Select 
ActiveSheet.Paste 

：

は、ここで私が持っているコードだX2は、私はすべての非空白行を選択する必要があります。そしてRange B9の代わりに、レジスタの一番下にある最初の空白行を選択する必要があります。

私はここでいくつかの回答を見て、提案されたコードを使用しようとしましたが、いつもExpected End Subというエラーがあります。

Answer 1

これは、スプレッドシートが表示されないため、回答を試みることも難しいです。

コピーを手助けするために、次のコードを参考にしてください。コードは、B6からSheet1のX6にデータをコピーします（同じシート内にない限り、これをデータのシートに変更することができます）。

このコードは、空白値を無視して、sheet1から「Order of Register」のデータを1列ずつコピーします。

Sub test_copy_ignoring_blanks() 

    Sheets("Register of Orders").Select 
    Range("A1").select 'Data will be pasted To Cell A1 moving 1 column position 

    'Select the sheet where your data is I'm imagining this is sheet 1 
    Sheets(1).Select 


    Dim starting_column As Long 
    Dim ending_column As Long 

    'Set the starting and ending columns 
    Range("X6").Select 
    ending_column = ActiveCell.Column 
    Range("B6").Select 
    starting_column = ActiveCell.Column 

    'Loop through for the copy 
    For counter = starting_column To ending_column 
     Cells(6, counter).Select 
     If Not IsEmpty(ActiveCell.Value) Then 
     ' The cell is not empty so copy it and paste it to Regist Order 
     Selection.Copy 
     Sheets("Register of Orders").Select 
     'Select the Range you want to paste it in 
     ActiveSheet.Paste 
     'Move the cursor one to the right 
     ActiveCell.Offset(0, 1).Select 
     Sheets(1).Select 
     End If 
    Next 
End Sub