ファイルによって、転記にばらつきが出てしまう

Question

###前提・実現したいこと
前回の質問（https://teratail.com/questions/102850）で習得させていただいたデータ転記の方法で、異なるエクセルデータ郡の取り込みを試しています。

###発生している問題・エラーメッセージ
順調に転記できるようになったと思いましたが、
転記元のファイルによって、転記されるデータにばらつきが出てしまっております。

転記元は下記のようなデータです。
うまくいくと、B37：M42まで転記されるのですが、
例えば、B37：M39までの一部しか転記されないファイルが出てきました。

セル範囲の指定をいろいろ変更してみたのですが、うまく実行できません。
修正のヒントをいただけると幸いです。
よろしくお願いいたします。

###該当のソースコード
Option Explicit

Sub 見積り転記()
'前提条件
'- 転記元のシートを前面に表示していること
'- 転記先のシートがこのマクロが書かれいるブックであること

If Excel.ThisWorkbook Is Excel.ActiveWorkbook Then
    Stop '転記先と転記元が同じブック
    Exit Sub
End If

'転記元のシートを取得
    'Excelで今アクティブなシート
Dim copyWs As Excel.Worksheet
Set copyWs = Excel.ActiveWorkbook.ActiveSheet

'転記先のシートを取得
    'マクロが書かれているブックの、アクティブなシート
Dim pasteWs As Excel.Worksheet
Set pasteWs = Excel.ThisWorkbook.ActiveSheet

'入力する空白セルの指定
Dim pasteCell As Excel.Range '元の処理の`InputRow`に相当する場所のセル
Set pasteCell = pasteWs.Cells(pasteWs.Rows.Count, "A").End(xlUp).Offset(1)

途中省略

'該当部分→作業内容～金額'を開いている転記元からコピーして転記先にペースト
Set pasteCell = pasteWs.Cells(pasteWs.Rows.Count, "D").End(xlUp).Offset(1)

Dim sagyokingakuCell As Excel.Range
With copyWs
    Set sagyokingakuCell = _
            .Range( _
                .Range("B37:M37"), _
                .Range("B37：M37").End(xlToRight).End(xlDown) _
            )

End With 'copyWs


sagyokingakuCell.Copy
pasteCell.PasteSpecial Paste:=xlPasteValues, _
                       Operation:=xlNone, _
                       SkipBlanks:=False, _
                       Transpose:=False

End Sub

Answer 1

コードが読みにくいです。
</>ボタンを使ってください。
また、インデントを調整して見やすく整形してください。

で、原因の箇所は十中八九、以下の箇所でしょう。

Set sagyokingakuCell = .Range(.Range("B37:M37"), _
　　　　　　　　　　　　　　　　.Range("B37：M37").End(xlToRight).End(xlDown))

うまくいかないシートで、
上記の操作を、キー操作で再現してみると、
何か分かると思います。

頑張ってください。

Comments

[退会済みユーザー]

早速のご回答ありがとうございました！
お礼が遅くなり恐縮です。
調べてみたのですが、「キー操作で再現」が具体的にどのように検証してよいのか理解できず、解決できずにいます。
今ひとつヒントいただけましたら幸いです。
よろしくお願いします。

[ExcelVBAer]

.End(xlToRight) → セル上で Ctrlキーを押し、そのまま矢印キー「→」
.End(xlDown)　→ セル上で Ctrlキーを押し、そのまま矢印キー「↓」
覚えておくと便利です。

[退会済みユーザー]

ご返信ありがとうございます！
ショートカットのことだったのですね！
やってみます、ありがとうございます！