Search notes:

Excel Range object: currentRegion

.currentRegion returns a (rectangular) range object so that adancent cells's values are blank. The bevavior corresponds to the keyboard shortcut ctrl+shift+*.

option explicit

sub main() ' {

    testData

    dim region as range

    set region = cells(3,4).currentRegion
    region.interior.color = rgb(255, 245, 235)
    region.columns.autoFit

end sub ' }

sub testData() ' {

    cells(2, 2) = 42
    cells(2, 3) = "x"
    cells(3, 3) =  8
    cells(3, 5) = "?!"
    cells(3, 4) = "foo"
    cells(4, 2) = 9.31

end sub ' }

Github repository about-MS-Office-object-model, path: /Excel/Range/currentRegion/select.bas

Excel Range object: currentRegion

See also