Hi Can anyone help me to make below code shorter as whenever my i run the code along with different set of code, it always gets hang when macro reach to this code.
Sub Groupingname()
Application.ScreenUpdating = False
Set shgroup = ThisWorkbook.Worksheets("Data")
Range("I2").Select
For U...