See if this helps. I don't know whqt the reference to Row 28 means.
Modify code as required.


Sub filterData()

NewRow = 1
With Sheets("Sheet1")
LastRow = Range("B" & Rows.Count).End(xlUp).Row
For RowCount = 1 To LastRow
ColE = .Range("E" & RowCount)
If ColE = "€�A€�" Or ColE = "€�B€�" Then

MyDate = .Range("B" & RowCount)
If Weekday(Date) = vbSaturday Then
If MyDate = Date And MyDate <= (Date + 3) Then
CopyData = True
Else
CopyData = False
End If
Else
If MyDate = Date And MyDate <= (Date + 1) Then
CopyData = True
Else
CopyData = False
End If
End If

If CopyData = True Then
.Range("D" & RowCount).Copy _
Destination:=Sheets("Sheet2").Range("A" & NewRow)
NewRow = NewRow + 1
End If
End If
Next RowCount
End With

End Sub


--
joel
------------------------------------------------------------------------
joel's Profile: http://www.thecodecage.com/forumz/member.php?userid=229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=149840