.copy Befehl verwenden

Private Sub Eintragen_Click()
'Variablendeklaration
Dim wsh As Worksheet
Dim rge1 As Range, rge2 As Range, rge3 As Range, rge4 As Range
Dim mv As String, sn As String
'Werte aus Eingabefenster werden in Variablen gespeichert
mv = Eingabefenster.ComboBox1.Value
sn = Eingabefenster.ComboBox2.Value
'Wenn in mv und sn ein Wert steht führe Folgendes aus
If sn  "" Then
Set wsh = ThisWorkbook.Worksheets(mv)
Set rg1 = wsh.Range("3:5")
Set rg2 = rge1.Find(sn, , xlValues, xlWhole, xlByColumns, xlNext, False, False)
If Not rg2 Is Nothing Then
Set rg3 = rg2.Offset(2, 0)
Set rg4 = Worksheets("Suche").Range("A8").Resize(50, 8)
---- rg4.Copy Worksheets("wsh").Range(rg3)----
End If
End If
Set rg1 = Nothing
Set rg2 = Nothing
Set rg3 = Nothing
Set rg4 = Nothing
Set wsh = Nothing
MsgBox "Die Werte wurden hinzugefügt!", vbInformation
End Sub