Ordina che non riordina...

[redwise]

Buongiorno a tutti,

premetto che sono nuovo e non molto pratico di macro, ho il seguente problema:

Devo ordinare dei dati in un foglio dove alcune celle di intestazione sono unite, se seleziono tutto il foglio completo, vado su dati...ordina...con celle di intestazione...e seleziono "colonna A" o b .. (che sono gli unici due ordinamenti che mi interessano)
il comando viene eseguito correttamente...

se...

registro la macro con questi comandi... mi dice

"Errore di run-time 1004 Per il completamento dell'operazione è necessario che le celle unite siano di dimensioni identiche"

questo è il codice, cosa sbaglio?

Codice: Seleziona tutto

Sub Riordina()
'
' Riordina Macro
' Macro registrata il 12/01/2017
'

'
    Cells.Select
    Selection.Sort Key1:=Range("A5"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A5").Select
    End Sub

[wallace&gromit]

Ciao redwise, benvenuto nel forum.
Sbagli con l'istruzione cells.select, che ti seleziona l'intero foglio, compreso le celle unite.
Usa invece questa:

Codice: Seleziona tutto

Sub Riordina()
    UR = Range("A5").End(xlDown).Row
    Range("A5:B" & UR).Select
    Selection.Sort Key1:=Range("A5"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A5").Select
End Sub