Excel VBA_1004エラー回避ができません助けてください

エラーの原因が判りません。

最近独学でExcelVBAを学んで仕事で便利ツールを作ろうとしているのですが、エラーが回避できず困っております。
ツールの内容としては各担当が個別に決まったフォーマット(各シート)に記入した内容をシート1に統合する内容です。
以下コードの『Application.ScreenUpdating = False』の後のコマンドで『実行時エラー1004 アプリケーション定義またはオブジェクト定義のエラーです。』が発生してしまいます。
原因をお教え頂けないでしょうか。。。

発生している問題・エラーメッセージ

実行時エラー1004 アプリケーション定義またはオブジェクト定義のエラーです。

該当のソースコード

ExcelVBA
1Sub シート統合②_統合版に対する内容反映()
2ThisWorkbook.Activate
3    Dim K1, K2S, K2E, K3S, K3E, K4S, K4E, w, x As Integer
4    K1 = 4                                              'シート1(統合版)の行番
5    K2S = 4                                             'シート2の最初の行番
6    K2E = WorksheetFunction.CountIf(Worksheets(2).Range("B:B"), "A") + 3 'シート2の最後の行番
7    K3S = 4                                       'シート3の最初の行番
8    K3E = WorksheetFunction.CountIf(Worksheets(3).Range("B:B"), "B") + 3   'シート3の最後の行番
9    K4S = 4                                       'シート4の最初の行番
10    K4E = WorksheetFunction.CountIf(Worksheets(4).Range("B:B"), "C") + 3   'シート4の最後の行番
11    Application.ScreenUpdating = False
12    Worksheets(1).Range(Cells(K2S, "B"), Cells(K2E, "CH")).Value(xlRangeValueXMLSpreadsheet) _
13        = Worksheets(2).Range(Cells(K2S, "B"), Cells(K2E, "CH")).Value(xlRangeValueXMLSpreadsheet)
14    Worksheets(1).Range(Cells(K2E + 1, "B"), Cells(K2E + K3E - 3, "CH")).Value(xlRangeValueXMLSpreadsheet) _
15        = Worksheets(3).Range(Cells(K3S, "B"), Cells(K3E, "CH")).Value(xlRangeValueXMLSpreadsheet)
16    Worksheets(1).Range(Cells(K2E + K3E - 2, "B"), Cells(K2E + K3E + K4E - 6, "CH")).Value(xlRangeValueXMLSpreadsheet) _
17        = Worksheets(4).Range(Cells(K4S, "B"), Cells(K4E, "CH")).Value(xlRangeValueXMLSpreadsheet)
18    Application.ScreenUpdating = True
19End Sub

行動規範の内容に同意します

回答1件

ベストアンサー

vba
1    Worksheets(1).Range(Cells(K2S, "B"), Cells(K2E, "CH")).Value(xlRangeValueXMLSpreadsheet) _
2        = Worksheets(2).Range(Cells(K2S, "B"), Cells(K2E, "CH")).Value(xlRangeValueXMLSpreadsheet)

上記のRangeの中の Cells の前に、Worksheets(1).Cells などとシートを指定してください。

vba
1    Worksheets(1).Range(Worksheets(1).Cells(K2S, "B"), Worksheets(1).Cells(K2E, "CH")).Value(xlRangeValueXMLSpreadsheet) _
2        = Worksheets(2).Range(Worksheets(2).Cells(K2S, "B"), Worksheets(2).Cells(K2E, "CH")).Value(xlRangeValueXMLSpreadsheet)

下記のようにアドレス文字列で指定するほうが読みやすいかもしれません。

vba
1    Ws1.Range("B" & K2S & ":CH" & K2E).Value(xlRangeValueXMLSpreadsheet) _
2        = ws2.Range("B" & K2S & ":CH" & K2E).Value(xlRangeValueXMLSpreadsheet)