Macro per ripetere Ctrl+freccia in basso

[Bruno_81]

Ciao a tutti,non riesco a capire come fare un comando semplice con una macro.
Allora,ho una tabella,ogni giorno cambia il numero di colonne.
Quello che devo fare io è selezionare l'ultima colonna e inserirla tra la colonna B e C.
Allora per il primo punto ho risolto con il comando

Range("a1").Select
Cells(1, Columns.Count).End(xlToLeft).Select

Così mi posiziono sulla prima riga dell'ultima colonna.

Ora devo selezionare tutta la colonna,ho provato con il comando

Range(Selection, Selection.End(xlDown)).Select

Il problema è che ci sono delle celle vuote all'interno della colonna,quindi dovrei utilizzare il comando ctrl+freccia in basso più volte...
Perchè ripetendo più volte il comando

Range(Selection, Selection.End(xlDown)).Select

non funziona?

Potete suggerirmi un'alternativa?
Alla fine quello che mi serve è una macro che mi individui qual'è l'ultima cella della riga 1 che contiene un dato e selezionare tutta quella colonna (per incollarla ci riesco da me )

[ricky53]

Ciao,
per selezionare tutti i dati dell'ultima colonna e copiarli dopo la colonna "B" prova in questo modo

Codice: Seleziona tutto

Sub Copia_Colonna()
    Dim UR As Long, UC As Long
   
    UC = Cells(1, Columns.Count).End(xlToLeft).Column
    UR = Cells(Rows.Count, UC).End(xlUp).Row
    Range(Cells(1, UC), Cells(UR, UC)).Copy
    Columns("C:C").Insert Shift:=xlToRight
    Range("A1").Select
End Sub


[Anthony47]

Vedi il suggerimento di Ricky sopra.

Senza curiosare troppo nella tua macro io avrei suggerito:

Codice: Seleziona tutto

Cells(1, Columns.Count).End(xlToLeft).EntireColumn.Select


Ciao

[ricky53]

Ciao,
sei autorizzato a curiosare ... Eh, Eh !!!
Tu hai ottimizzato!

Io ho fatto tutti i passi (per addetti ai lavori di medio livello) per copiare solo intervallo con dati; ho previsto anche l'inserimento della colonna dopo la "B" .. tanto per gradire.

[Bruno_81]

Grazie mille,bastava aggiungere EntireColumn.select