質問: Nothing 'Objの初期化 Next End Sub
回答: これでどうでしょう。 --- With Sheets(dstSheet) '←これに対応するEnd Withがない dstSheet.Range("E" & lngYLine).Resize(1, 3).Value = srcSheet.Range("E" & srcRow).Resize(1, 3).Value 'データ転記(4) End With '←追加