Dynamic range - from specified cell to End

[Formula11]

I'm trying to find the used range from a selected cell to the End of the worksheet.
In this case, starting from Cell "J4".
The solution below does start at J4 but when it comes to the End, it looks at the whole sheet.
In the attached snapshot, I want to select range "J4:W13", not "J4:W20".

Sub DynamicRange()
    Dim sht As Worksheet
    Dim LastRow As Long, LastColumn As Long
    Dim StartCell As Range
    Set sht = Worksheets("Sections")
    Set StartCell = Range("J4")
    Worksheets("Sections").UsedRange
    LastRow = StartCell.SpecialCells(xlCellTypeLastCell).Row
    LastColumn = StartCell.SpecialCells(xlCellTypeLastCell).Column
    sht.Range(StartCell, sht.Cells(LastRow, LastColumn)).Select
End Sub

 

[ajetrumpet]

it kinda sounds like you need a literal representation of a range area. either that or a named range,

 

[gallen]

This should get the last row based on your example

LastRow = Range("J4").CurrentRegion.Rows(Range("J4").CurrentRegion.Rows.Count).Row

Implementing within your code example:

Sub DynamicRange()
    Dim sht As Worksheet
    Dim LastRow As Long, LastColumn As Long
    Dim StartCell As Range
    Set sht = Worksheets("Sections")
    Set StartCell = Range("J4")
    Worksheets("Sections").UsedRange
    LastRow = StartCell.CurrentRegion.Rows(StartCell.CurrentRegion.Rows.Count).Row
    LastColumn = StartCell.SpecialCells(xlCellTypeLastCell).Column
    sht.Range(StartCell, sht.Cells(LastRow, LastColumn)).Select
End Sub

 

[Fluff]

Depending on what's in your cells try

Range("J4").CurrentRegion.Select

 

[Formula11]

Cheers for the solutions at post #4 and #5.
Both work.

 

[Fluff]

Glad we could help & thanks for the feedback