セル範囲指定方法

質問

VBAにて下記作成中ですが、行き詰ってしまいました。
どなたか、ご教授願います。

Sub 転記ボックス1_Click()

Sheets("S").Select
Range("N13").Select

If ActiveCell.Value <> "" Then
Selection.Copy
Sheets("Ｈ").Select
Range("K65536").End(xlUp).Offset(0, 1).Select
---＞シートＨ、K列最終行の右隣からL列最終行の範囲を指定
上記指定範囲内全てに、シートＳ・N13の値を貼付

ElseIf ActiveCell.Value = "" Then
Sheets("Ｈ").Select
Range("K65536").End(xlUp).Offset(0, 1).Select
---＞シートＨ、K列最終行の右隣からL列最終行の範囲を指定
上記指定範囲内全てに、”シートＳ・N13”と入力
End If
End Sub

---＞部分の書き方がわかりません。
よろしくお願いします。

回答No.1

mar00 · ベストアンサー

こんな感じではないでしょうか。
Sub 転記ボックス1_Click()
Sheets("H").Select
ROW1 = Range("K65536").End(xlUp).Row
ROW2 = Range("L65536").End(xlUp).Row
If Sheets("S").Range("N13").Value <> "" Then
Range("L" & ROW1 & ":" & "L" & ROW2) = Sheets("S").Range("N13").Value
Else
Range("L" & ROW1 & ":" & "L" & ROW2) = "シートＳ・N13"
End If
End Sub
参考になればいいのですが。

お礼

お礼が遅くなり、申し訳ございませんでした。
使い方を認識しておらず、ご迷惑お掛けしました。
次回質問時にもご教授お願いします。
ありがとうございました。