Attribute VB_Name = "testcellrange5"
Sub テスト()

    Dim range1 As Range

    Set range1 = Range("C3").End(xlDown)
    range1.Value = "下端のセル"

    Set range1 = Range("C3").End(xlToRight)
    range1.Value = "右端のセル"

End Sub