On 18 Iul, 20:00, Josh W wrote:
And so on all the way down. The cells in between are empty.

One way :

Sub EXTRACT75()

Dim FromWbook As Worksheet
Dim myCell As Range
Dim myRng1 As Range

Set FromWbook = Workbooks("YOURWORBOOKNAMEHERE.xls").Worksheets
("YOURWORKSHEETNAMEHERE")

With FromWbook
Set myRng1 = .Range("I14:I100")
End With


For Each myCell In myRng1.Cells

If myCell.Value < Empty Then
myCell.Value = myCell.Offset(-7, 0).Value - 0.75
End If
Next myCell
End Sub

For each cell in column I which is not empty , will extract
what you wish . You'll have trouble if you don't have first
value in cell I7 and second in cell I14 , but ... that's whai I know .
Hope to help .