Se per ogni riga usi una colonna flag in cui metti 1 nel caso sia da copiare puoi usare il doppio ciclo qui di seguito, un pò spartano ma funge ..
codice:
Dim i, j, k, rigafine, flag,numcolonne
k = 1
rigafine = 100
flag = 1
numcolonne=100
For i = 1 To rigafine
If Sheets(1).Cells(i, flag) = 1 Then
For j = 1 To numcolonne
Sheets(2).Cells(k, j) = Sheets(1).Cells(i, j)
Next
k = k + 1
End If
Next
Se invece vuoi selezionare tu a mano le righe puoi fare così:
codice:
Sub CopiaRighe()
i = 1
For Each a In Selection.Areas
Sheets(2).Rows(i) = a.Rows.Value
i = i + 1
Next a
End Sub
ok?