Ciao a tutti,
con il suggerimento di federico (un saluto) potresti capire meglio come "sbrigartela" con le tue mani, comunque sei stato troppo "sintetico" nello descrivere il tuo problema...
Un esempio di codice per selezionare le colonne a 2 a 2 inserendo in 2 apposite InputBox le colonne di inizio e fine selezione:
Sub Seleziona()
Dim Inizio As Long, Fine As Long, iCol As String, lCol As String, i As Long
Dim Colonne As Range, uLettera As String, appoggio() As String
appoggio() = Split(Cells(1, Cells.Columns.Count).Address, "$")
uLettera = appoggio(1)
On Error GoTo errore
iCol = InputBox("Lettera della colonna di inizio selezione:", "COLONNA INIZIO")
lCol = InputBox("Lettera della colonna di fine selezione:", "COLONNA FINE")
Inizio = Range(iCol & 1).Column
Fine = Range(lCol & 1).Column
Set Colonne = Columns(Inizio)
For i = Inizio To Fine Step 4
Set Colonne = IIf(Columns(i + 1).Column <= Fine, Uni0n(Colonne, Columns(i), Columns(i + 1)), Uni0n(Colonne, Columns(i)))
Next i
Colonne.Select
Set Colonne = Nothing
Exit Sub
errore:
MsgBox "Per le colonne, inserire le lettere che le identificano (da A a " & uLettera & ")!", vbCritical, "ATTENZIONE"
Set Colonne = Nothing
End Sub
Il codice puoi richiamarlo con la combinazione di tasti:
CTRL + s
Ti lascio un file d'esempio...
"Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."