Option Explicit
Private Sub sucheneinfügen()
Dim rngCell As Excel.Range
Dim WkSh_Q As Worksheet
Dim WkSh_Z As Worksheet
Set WkSh_Q = Worksheets("Rohdaten")
Set WkSh_Z = Worksheets("Tabelle1")
With WkSh_Z
Set rngCell = .Cells(.Rows.Count, "A").End(xlUp)
If rngCell.Value <> "" Then Set rngCell = rngCell.Offset(1)
End With
With WkSh_Q
Call .Range(.Cells(1, "C"), .Cells(.Cells(1, "C").End(xlDown), "N")).Copy(rngCell)
End With
End Sub