Sub Sampling_by_date()
Dim arr()
Dim iStr
Dim iDate, myDate
With Worksheets("tabl_maintenance_day")
arr = .Range("A3:L" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value
End With
ReDim arrSampl(1 To UBound(arr), 1 To 23)
With Worksheets("input_data_maintenance")
iDate = CDbl(DateSerial(Val(.Range("D32").Value), Val(.Range("D31").Value), Val(.Range("D30").Value)))
End With
'-----------------------------------------------------------
For I = LBound(arr) To UBound(arr)
iStr = Split(Trim(arr(I, 1)), ".")
myDate = CDbl(DateSerial(Val(iStr(2)), Val(iStr(1)), Val(iStr(0))))
If myDate = iDate Then
N = N + 1
arrSampl(N, 1) = arr(I, 2): arrSampl(N, 2) = arr(I, 3)
arrSampl(N, 3) = arr(I, 4): arrSampl(N, 16) = arr(I, 5)
arrSampl(N, 17) = arr(I, 6): arrSampl(N, 18) = arr(I, 7)
arrSampl(N, 20) = arr(I, 9): arrSampl(N, 21) = arr(I, 10)
arrSampl(N, 19) = arr(I, 8): arrSampl(N, 22) = arr(I, 11)
End If
Next
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
With Worksheets("print_form")
lRow = .Cells(.Rows.Count, "A").End(xlUp).Row
lRow = IIf(lRow < 4, 4, lRow)
.Range("A4:W" & lRow).ClearContents
.Range("A4").Resize(N, 23) = arrSampl
End With
Worksheets("print_form").Activate
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

myDate = CDbl(DateSerial(Val(iStr(2)), Val(iStr(1)), Val(iStr(0))))