Ciao,
Non ho ben capito il tuo problema.
In ogni caso mi pare che l'errore cells global si manifesti quando non è stato specificato il foglio su cui lavorare o si sta lavorando su due oggetti xls
Nella parte in verde non mancano i punti dopo l'uguale?
codice:
If .Cells(z, 1).Value < .Cells(h + 1, 1) Then
    .Cells(h + 2, 1).Value = .Cells(h + 1, 1).Value ' alla prima query risponde bene...
    .Cells(h + 2, 2).Value = .Cells(h + 1, 2).Value ' ...ma alla seconda come al solito
    .Cells(h + 2, 3).Value = .Cells(h + 1, 3).Value
    .Cells(h + 2, 4).Value = .Cells(h + 1, 4).Value
    .Cells(h + 1, 1).Value = Cells(z, 1).Value ' e qui mi dà l'errore metodo cells global
    .Cells(h + 1, 2).Value = Cells(z, 2).Value
    .Cells(h + 1, 3).Value = Cells(z, 3).Value
    .Cells(h + 1, 4).Value = Cells(z, 4).Value 
      .Cells(n, 1).Value = .Cells(h + 1, 1).Value
    .Cells(n, 2).Value = .Cells(h + 1, 2).Value
    .Cells(n, 3).Value = .Cells(h + 1, 3).Value
    .Cells(n, 4).Value = .Cells(h + 1, 4).Value
    .Cells(z, 1).Value = .Cells(h + 2, 1).Value
    .Cells(z, 2).Value = .Cells(h + 2, 2).Value
    .Cells(z, 3).Value = .Cells(h + 2, 3).Value
    .Cells(z, 4).Value = .Cells(h + 2, 4).Value
  End If
ciao