hämta rader med makro

Jag försöker att skapa ett makro för att kopiera rad 1, 6, 11, 16 osv tills det inte längre finns värden i någon rad i kolumn A. Rader skall kopieras och klistras in till flik 2

så här ser mitt makro ut, men funkar absolut inte. Det slutar inte, hur jag ska ange do until

Do Until Selection.End(xlDown).Select = ""

Sheets("Sheet1").Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Sheet2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks \_
    :=False, Transpose:=False
Range("A2").Select
Sheets("Sheet1").Select
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks \_
    :=False, Transpose:=False
Range("A3").Select

Loop

End Sub

snälla hjälp, kanske märks att jag inte har någon vana av programmering i VBA??