チェックボタンでチェックした値をセルに連続入力

質問

チェックボタンでチェックした行(表-1)を下記のコードでExcelセル(表-2)に入力できたのですが既にに"B2:E3","B10:E10",に値が入力されている場合、B4から続けて入力したいのですがどのように
コードを追記すれば良いのかどなたかわかる方よろしくお願いします。

Sub 入力()
Dim i As Integer
Dim j As Integer
Dim k As Integer
k = 3
i = Range("Z65536").End(xlUp).Row
For j = 3 To i
If Range("Z" & j).Value = True Then
k = k + 1
Range("B" & k).Value = k - 1
Range("H" & j, "K" & j).Copy Range("B" & k)
End If
Next j
End Sub

回答No.1

jin34 · ベストアンサー

Sub 入力()
Dim i As Integer
Dim j As Integer
Dim k As Integer

'付け足した箇所。2行目が空欄なら1、そうでなければデータのある最終行を取得。
If Range("B2") = "" Then
k = 1
Else
k = Range("B2").End(xlDown).Row
'k = 3　　←不要
End If

i = Range("Z65536").End(xlUp).Row
For j = 3 To i
If Range("Z" & j).Value = True Then
k = k + 1

'付け足した箇所。データを入れようとする行が埋まっていればマクロ終了。
If Range("B" & k) <> "" Then Exit Sub

'Range("B" & k).Value = k - 1　←不要
Range("H" & j, "K" & j).Copy Range("B" & k)
End If
Next j
End Sub

お礼

有難うございます。非常に助かりました。