Excel VBA mit Find-Methode Bereich kopieren

Sub Finden_Markieren()
Dim Fund_erste As Range, Fund_letzte As Range, lastCell As Long, lastColumn As Integer, wks1 As  _
_
Worksheet, wks2 As Worksheet
Set wks1 = Worksheets("Test1")
Set wks2 = Worksheets("Test2")
With wks1
lastCell = .Range("A65536").End(xlUp).Row
lastColumn = .UsedRange.Columns.Count
'Set Fund_erste = .Range("A:A").Find(3, Cells(1), xlValues, xlWhole, xlByColumns, xlNext)
Set Fund_erste = .Range(.Cells(1, 1), .Cells(1, lastCell)).Find(3, Cells(1), xlValues, xlWhole,  _
_
xlByColumns, xlNext)
'Set Fund_letzte = .Range("A:A").Find(3, Cells(1), xlValues, xlWhole, xlByColumns, xlNext)
Set Fund_letzte = .Range(.Cells(1, 1), .Cells(1, lastCell)).Find(3, Cells(1), xlValues, xlWhole, _
_
xlByColumns, xlNext)
'If Not Fund Is Nothing Then
'  MsgBox "Erste Zeile: " & Fund.Row
'  Set Fund = .Range("A:A").Find(3, Cells(1), xlValues, xlWhole, xlByColumns, xlPrevious)
' MsgBox "Letzte Zeile: " & Fund.Row
'.Rows("1:" & Rng.Row).Delete
'.Range(.Cells(Fund_erste, 1), .Cells(Fund_letzte, lastColumn)).Select
.Range(.Cells(Fund_erste, 1), .Cells(Fund_letzte, lastColumn)).Copy _
Destination:=wks2.Range("A65536").End(xlUp).Offset(1, 0)
'End If
End With
Set wks1 = Nothing
Set wks2 = Nothing
Set Fund_erste = Nothing
Set Fund_letzte = Nothing
End Sub