VBA - Smallest number in range (greater than -1)

[Beachson]

How would I state the following in VBA? ...

If ActiveCell.Offset(0, 1) > -1 AND _
   ActiveCell.Offset(0, 2) > -1 Then

   ActiveCell.Offset(1, 0)

Else

Below is my question on how to state in VBA. Would go right after "Else" in the above code" ...

Smallest number (must be greater than -1) in the range of ActiveCell.Offset(0, 2):ActiveCell.Offset(0, 5)

Thanks for any help everyone

 

[Marcelo Branco]

I was not very clear on this question and obviously asked it incorrectly. Sorry everyone ...

My desired result was achieved by the following (the question I had is in red) ...

If ActiveCell.Offset(0, 1) > -1 AND _
   ActiveCell.Offset(0, 2) > -1 Then

   ActiveCell.Offset(1, 0)

Else

[COLOR=#ff0000]Selection.FormulaArray = "=MIN(IF(RC[1]:RC[4]>-1,RC[1]:RC[4]))"

[/COLOR]End If

I'm confused
RC[1]:RC[4] corresponds to Offset(0,1):Offset(0,4) not Offset(0,2):Offset(0,5) as you stated in post 1
What do you really want?

M.