Copia - incolla "particolare"

[Marco75CT]

Ciao a tutti,
scusate per il titolo del post ma non sapevo come sintetizzare
Dovrei copiare con una macro sul foglio2 alcuni dati presenti sul foglio1 ma non sempre nella stessa posizione.
I dati si trovano sempre nelle colonne A e I, ma in righe diverse.
L'unica cosa che potrebbe indicizzare la ricerca è il fatto che tra, i blocchi sono sempre divisi da righe vuote.
Per chiarire la mia pessima descrizione, allego un file di esempio.
Grazie

http://www.filedropper.com/esempio

[alfrimpa]

Ciao Marco

Prova con questa macro

Codice: Seleziona tutto

Sub COPIA()
Dim lr As Long
Dim ur As Long
Dim rng As Range
Dim cel As Range
Application.ScreenUpdating = False
lr = Worksheets("Foglio1").Cells(Rows.Count, 9).End(xlUp).Row
Set rng = Worksheets("Foglio1").Range("a4:a" & lr)
For Each cel In rng
ur = Worksheets("Foglio2").Cells(Rows.Count, 1).End(xlUp).Row
    If Len(cel) = 4 Then
        cel.Copy Destination:=Worksheets("Foglio2").Range("a" & ur + 1)
        cel.Offset(cel.CurrentRegion.Rows.Count - 1, 8).Copy
        Worksheets("foglio2").Select
        Range("b" & ur + 1).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End If
Next cel
Worksheets("foglio2").Range("a2").CurrentRegion.Select
 With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
 End With
 Range("a1").Select
 Application.ScreenUpdating = True
End Sub

Fai sapere e se hai bisogno di spiegazioni sulla macro chiedi pure.

[Marco75CT]

Grazie 1000!
Sul file d'esempio funziona alla grande.
Lo devo però integrare con il resto del progetto.
Se dovessi avere qualche altro intoppo ti farò sapere.
Ciao e ancora grazie.