【マクロ VBA】選択範囲をRange，Cells，変数を用いて指定する方法について

Question

前提・実現したいこと

ここに質問の内容を詳しく書いてください。
vbaでデータ整理のマクロを製作しております．
Range("Cells(1,1): Cells(28,3),Cells(1,j):Cells(28,k)").Select
の部分で下記のようなエラーが表示されます．
解決策をご教授頂きますと幸いです。

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

実行時エラー 1004
rangeメソッドは失敗しました globalオブジェクト

該当のソースコード

Sub データ整理()

Dim i As Long
i =1
Dim j As Long
j =4+(i-1)*144
Dim k As Long
k =147+(i-1)*144

　Do

'//1日ごとのデータコピー
ThisWorkbook.Activete
Range("Cells(1,1): Cells(28,3),Cells(1,j):Cells(28,k)").Select ←ここでエラー

'//新しいブックを製作
Set wk = Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'//日付と時刻の修正
Range("A4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormatLocal = "yyyy/m/d"
Range("B4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormatLocal = "h:mm;@"
Range("C7").Select
'//名前を付けて保存
With CreateObject("Scripting.FileSystemObject")
If Not .FolderExists("C:\Work") Then .CreateFolder "C:\Work"
End With
ActiveWorkbook.SaveAs "C:\Work\Booki.xls"

　　i= i+ 1

　　　　If i > 3 Then Exit Do
Loop

End Sub

試したこと

A1の表記でもうまくいかずCellsを使いましたが同様のエラーが生じました．

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

Range(Cells(1, 1).Address & ":" & Cells(28, 3).Address & "," & Cells(1, j).Address & ":" & Cells(28, k).Address).Select

Comments

[g20tm016]

本当に助かりました．ありがとうございます