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?