Creare particolare macro in excel

[akhenaton5]

Salve a tutti,
vi chiedo una mano per risolvere un problema apparentemente semplice!!!
Ho un foglio excel con dei dati.
Voglio popolare il secondo foglio excel (dello stesso file) con i dati dei campi che si trovano ogni 5 righe nel primo foglio.
Potete aiutarmi????
Grazie 1000
A presto

[fabio309]

una cosa di questo tipo?

Sub Macro1()
Dim i1
Dim i2
Dim i3
Dim j
i1 = 1
i2 = 5
i3 = 1
Worksheets("Foglio1").Cells(1, 1).Select
Do While ActiveCell.Value <> ""
    Range("A" & i1 & ":A" & i2).Select
    Selection.Copy
    Sheets("Foglio2").Select
    ActiveSheet.Paste
    Selection.End(xlDown).Select
    Worksheets("Foglio2").Cells(i3 + 5, 1).Select
    i1 = i1 + 10
    i2 = i2 + 10
    i3 = i3 + 5
    Sheets("Foglio1").Select
Loop
End Sub

[akhenaton5]

Grazie per aver risposto, il codice che mi hai dato non è male, io vorrei perfezionarlo popolando il foglio 2 del file con l'intera riga formate da imprecise celle (possono variare).
Le righe che deve copiare nella seconda pagina devono essere solo la 1 la 5 la 10 la 15 e così via!!! Il codice che mi hai postato è modificabile in tal senso?
Grazie ancora

[fabio309]

certo che si bisogna perderci unpo' di tempo e fare qualche prova