ActiveCell.EntireRow.Select

'

'

ActiveCell.Offset(1, 0).Select 'Befehl um eine weitere Zeile nach unten zu springen

= die Suche wird in Spalte 1 fortgesetzt

und ...

bei dem ganzen hin und her select droht ohnedies  der Augentod ;-)

Option Explicit

Sub zeile_kopierenForNext()
'vom Tabellenblatt "try" ab Zelle "P2" in der Spalte nach unten
'wenn nicht leer (Zwischenräume leer)
'die ganze Zeile
' in die Tabelle "Tabelle1" ab Zelle "A1" untereinander
'
'ohne hin und her
'ohne Copy und Paste
'mit For... Next
'
Dim I As Long                                         'Zeilen u. Spalten sind Typ LONG !!
Dim lngVon As Long, lngBis As Long, lngSpalte As Long

Dim Y As Long                                         'Zielzeile
Y = 1                                                 ' in Tabelle1

lngVon = Sheets("Try").Range("P2").Row                'Beginn Zeile
lngSpalte = Sheets("Try").Range("P2").Column          ' in Spalte

'von ganz unten nach oben,
'die unterste Zeile (Rows.Count) ist überall gleich
lngBis = Sheets("Try").Cells(Sheets("Try").Rows.Count, lngSpalte).End(xlUp).Row

For I = lngVon To lngBis
   If Sheets("Try").Cells(I, lngSpalte).Value <> "" Then
      Sheets("try").Rows(I).Copy Destination:=Sheets("Tabelle1").Cells(Y, 1)
      'Ziel ist immer die erste Zelle wo und dann erhöhen
      Y = Y + 1
   End If
Next I

End Sub

Sub zeile_kopierenForEach()
'vom Tabellenblatt "try" ab Zelle "P2" in der Spalte nach unten
'wenn nicht leer (Zwischenräume leer)
'die ganze Zeile
' in die Tabelle "Tabelle1" ab Zelle "A1" untereinander
'
'ohne hin und her
'ohne Copy und Paste
'mit For... Each
'
'mit Bereichen
Dim rngQuelle As Range, rngZelle As Range, rngZiel As Range

Set rngQuelle = Sheets("Try").Range("P2")             'Beginn Zelle
Set rngQuelle = Range(rngQuelle, rngQuelle.Offset(Rows.Count - rngQuelle.Row).End(xlUp))

Set rngZiel = Sheets("Tabelle1").Range("A1")          'Beginn Ziel

'über den Bereich
For Each rngZelle In rngQuelle
   If rngZelle.Value <> "" Then
      rngZelle.EntireRow.Copy Destination:=rngZiel
      Set rngZiel = rngZiel.Offset(1)                 'Ziel 1 nach unten
   End If
Next rngZelle

End Sub