Create Shape & Cover To The Last Used Row

Is there any way that this bit of code can be combined to create a shape using dates that fall on weekends (that are listed in row2) and at the same time cover all rows up to the last Row used in a worksheet?

For instance, in the columns of Row2 we have many dates and we would have "16-Jan-10" in one column and "17-Jan-10" in another column (usually the next column) which are weekend dates. the shape should be created in the next row under the weekend date and cover the column all the way down to the last used Row (last Row contaning data).


With ActiveSheet.Shapes.AddShape( _
Type:=msoShapeRectangle, _
Top:=.Top, Left:=.Left, _
Width:=.Width, _
Height:=.Height)
.Placement = xlFreeFloating '
.Fill.ForeColor _
.RGB = RGB(Red:=192, Green:=192, Blue:=192)
End With