Sub selection()
Dim cols$
If W_IMPORT.User_btn_GENT.Value = True Then
cols = "C:H,J:O,Q:V,X:AC,AE:AJ,AL:AQ,AS:AX,AZ:DI,DK:EM"
ElseIf W_IMPORT.User_btn_KME.Value = True Then
cols = "C:H,J:V,X:AC,AE:AJ,AK:AQ,AS:AX,AZ:BL,BM:BZ,DA:DI,CO:CZ,CD:CN,CA:CC,DK:DP,DR:DW,DY:ED,EF:EK,EM:E"
Else:
End If
Columns(cols).Select
End Sub