Sub macro2()
Dim Z As Integer

Z = 1

Do Until Sheet1.Range("e" & Z).Value 0
If Range("e" & Z).Value = "" Then
Z = Z + 1
Else
' ""
End If
Range("a1").Value = Z
Loop


Z = Range("A1").Value
Do Until Sheet1.Range("e" & Z).Value < 0
If Range("e" & Z).Value = "" Then
' ""
Else
Z = Z + 1
' ""
End If
Range("a2").Value = Z
Loop

End Sub


"now use the values in cel A1 & A2 to Offset the range"


--
T.c.Goosen1977
------------------------------------------------------------------------
T.c.Goosen1977's Profile: http://www.excelforum.com/member.php...o&userid=35895
View this thread: http://www.excelforum.com/showthread...hreadid=557210