Selezionare RANGE

---

Sub SelezionaRange()
Dim RigI As Long, NriF As Long
Dim i As Long, conta As Long
conta = 0
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
If Cells(i, 2).Value = Date Then
If conta = 0 Then
RigI = i
conta = 1
Else
NriF = i
End If
End If
Next i
Set area = Application.ThisWorkbook.Worksheets("INPUT").Range(Cells(RigI, "A"), Cells(NriF, "J"))
Range(Cells(RigI, "A"), Cells(NriF, "J")).Select
End Sub

---