Repérer une ligne, la copier et la coller dans une autre feuille

Bonjour à tous, c'est encore moi !

Je rencontre quelques difficultés sur VBA. En effet, j'ai deux feuilles : feuille1 et feuille2.
Je souhaiterais réaliser une macro qui me permettrait de :
- Dans la feuille1 : Copier les lignes dont : A<>"" ET K=""
- Dans la feuille2 : Coller ces lignes les unes après les autres.

Actuellement j'ai essayé ça :

Dim p As Long
With Worksheets("Feuille1")
    For p = 2 To j - 1                   'j-1 est la dernière ligne du tableau qui  
                                                 'm'intéresse, j'ai déjà fait le nécessaire
        If Range("K" & p).Value = "" And Range("A" & p) <> "" Then
            Rows(p).Copy
            Sheets("Feuille2").Select
            Range("A2").Select
            ActiveSheet.Paste
        End If
    Next p
End With

Lorsque j'exécute, la dernière ligne qui remplit les conditions voulues est alors copiée sur la ligne 2 de ma feuille2, bien que j'aie plusieurs ligne qui remplissent les-dites conditions.
J'ai donc tenté autre chose :

Dim p As Long
Dim a As Long
With Worksheets("Feuille1")
    For p = 2 To j - 1                   'j-1 est la dernière ligne du tableau qui  
                                                'm'intéresse, j'ai déjà fait le nécessaire 
        If Range("K" & p).Value = "" And Range("A" & p) <> "" Then
            Rows(p).Copy
            Sheets("Feuille2").Select
            For a = 1 To 100
                If Range("A" & a).Value = "" Then
                Rows(a).Select
                ActiveSheet.Paste
                End If
            Next a
        End If
    Next p
End With

Et donc là lorsque j'exécute, ce n'est plus la dernière mais la première ligne remplissant les conditions qui est copiée dans les lignes 2 à 100 ...

Quelqu'un aurait-il une idée de comment résoudre ce mic-mac ? Ah et je suis débutant sur vba donc je passe très certainement à côté de quelque chose d'énorme hein ^^'

Merci d'avance !

Ecrelinf