Try to record this macroEdit >> Go To >> Special >> current regionThe macro would be like thisSub Macro2()'Range("A1").SelectSelection.CurrentRegion.SelectEnd Sub