Private Sub sucheneinfügen()
Dim WkSh_Q As Worksheet, WkSh_Z As Worksheet
Dim lZeile As Long, iSpalte As Long, i As Long
Set WkSh_Q = Worksheets("Rohdaten")
Set WkSh_Z = Worksheets("Tabelle1")
Application.ScreenUpdating = False
With WkSh_Q
For i = 3 To 14
lZeile = .Cells(.Rows.Count, i).End(xlUp).Row
.Range(.Cells(7, i), .Cells(lZeile, i)).Copy _
WkSh_Z.Cells(WkSh_Z.Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row, "A")
Next i
End With
Set WkSh_Q = Nothing: Set WkSh_Z = Nothing
End Sub