allora, con questo sono riuscito ad ottenere ciò che mi serviva:
codice:Sub Cerca_Sindaco() Dim multipliDi As Integer multipliDi = 160 Dim maxCerca As Integer maxCerca = 3373 Dim f2Index As Integer f2Index = 1 For i = multipliDi To maxCerca Step i + multipliDi Sheets("Foglio2").Cells(f2Index, 2).Value = Sheets("Foglio1").Cells(i, 1).Value Sheets("Foglio2").Cells(f2Index, 3).Value = Sheets("Foglio1").Cells(i, 3).Value f2Index = f2Index + 1 Next End Sub