Public Sub Resize_Shape()
Dim shp As Shape
Dim baseTimeCell As Range
Dim startTime As Date, endTime As Date
With ActiveSheet
Set shp = .Shapes(1)
Set baseTimeCell = .Range("A4")
startTime = .Range("F3").Value
endTime = .Range("G3").Value
'Top of shape
shp.Top = baseTimeCell.Top + (baseTimeCell.Height / 60) * DateDiff("n", baseTimeCell.Value, startTime)
'Bottom of shape
shp.Height = baseTimeCell.Top + (baseTimeCell.Height / 60) * DateDiff("n", baseTimeCell.Value, endTime) - shp.Top
End With
End Sub