Wert aus Zelle für VBA- Befehl verwenden

Sub Datenabzug_Übernahme()
Dim ws1 As Worksheet, ws2 As Worksheet, n As Long, pos As Long, wb1 As Workbook, wb2 As  _
Workbook
Set wb1 = ThisWorkbook
Set wb2 = Workbooks("Quelle.xlsm") ' den Namen musst du natürlich noch anpassen
Set ws1 = wb1.Worksheets("Datenabzug")
Set ws2 = wb2.Worksheets("Datenabzug")
pos = 2
Application.ScreenUpdating = False
wb2.Activate
ws2.Select
With ws2
For n = 1 To ws2.Cells(65536, 1).End(xlUp).Row
If .Cells(n, 1) Like "24500" Then
.Cells(n, 1).EntireRow.Copy
wb1.Activate
ws1.Select
ActiveSheet.Cells(pos, 1).Select
ActiveSheet.Paste
wb2.Activate
.Select
pos = pos + 1
End If
Next n
End With
Application.CutCopyMode = False
wb1.Activate
ws1.Select
Application.ScreenUpdating = True
ws1.Cells(1, 1).Select
End Sub