Set sh=ActiveSheet
Set Goal = GetLastCell (sh)
Dim ie As Long, je As Long
ie = Goal. Row: je = Goal. Column
sh. Range (sh. Cells (13, 1), sh. Cells (ie, je)).AutoFilter _
Field: = 2, Criteria1: = "> =" AND Format (dbToPrint, "0"), _
Operator: = xlAnd, Criteria2: = "<=" AND Format (deToPrint, "0")
Set Goal = sh. AutoFilter. Range
If Goal. Rows. Count> 1 Then
Worksheets. Add After: = Worksheets ("press")
Set shX = Worksheets (Worksheets. Count)
shX.Name = "ForStepler"
sh. Activate
Goal. Select
Selection. Copy Destination: = shX.Range ("A1") P.S.
It, naturally, a fragment ;-)))