Groups
Private Sub CommandButton1_Click() Range("A2:A18").Group End Sub Private Sub CommandButton2_Click() 'To remove the group Range("A18").ClearOutline End Sub