マクロVBAについて

マクロVBA初心者で下記のコードでコピー＆貼付けを追加したいと思いますが、
追加方法が分かりません・・・
下記では指定した行列のデータをコピーして転記先の行列へ貼付けをしています。
作成した担当者が不在となり、コピー＆貼付けをもう一つ増やしたくて色々と試しましたが上手くいきません。分かる方がみえたら教えていただけませんでしょうか。
Option Explicit
Sub openFolder(path As String)

Shell "C:\Windows\Explorer.exe " & path, vbNormalFocus

End Sub


Sub データ転記()

Dim i, j As Variant '行指定用変数

Dim sc As Variant 'データ転記元列番号指定
Dim tc As Variant 'データ転記先列番号指定
Dim sr As Variant 'データ転記元行番号指定
Dim tr As Variant 'データ転記先行番号指定

Dim sb As Workbook 'データ転記元ブック
Dim ss As String 'データ転記元シート
Dim tb As Workbook 'データ転記先ブック

Dim path As String 'フォルダパス

Set sb = ThisWorkbook
ss = ActiveSheet.Name


'元先の行列番号指定
sc = 7
tc = 7
sr = 4
tr = 4


'フォルダパス指定
path = "C:\Users\kawba\Downloads\原料\新しいフォルダー"



'転記先ブック指定
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Filters.Add "Microsoft Excel ブック", "*.xlsx", 1 'ファイル形式指定
.Title = "転記先ファイルを選択してください" 'ダイアログボックスメッセージ指定

.InitialFileName = path

If .Show = False Then
Exit Sub
End If

Set tb = Workbooks.Open(.SelectedItems(1)) 'ファイル名取得

End With



i = sr
j = tr
Do Until sb.Worksheets(ss).Cells(i, sc) = ""

tb.Worksheets("Sheet2").Cells(j, tc) = sb.Worksheets(ss).Cells(i, sc)

i = i + 1
j = j + 1

Loop

End Sub

No.1 回答者： 武蔵くん 回答日時： 2022/09/08 04:54

scとtcの数値を上げてみれば(今は7だよね)

1行+なら+1してみて