ReDim Pr_in(1 To N, 1 To Product(1).count) As Double ' Этот массив потом хитрым образом полностью заполняется
 
Dim P_in() As Double
P_in=WorksheetFunction.Sum(Pr_in)

Sub Macro1()
Dim r As Range
    For Each r In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp).Offset(2)).SpecialCells(xlCellTypeBlanks).Areas
        If r.Count > 1 Then
            Range(Cells(1, 1), r.Cells(1, 1).Offset(-1)).Select
            Exit For
        End If
    Next
End Sub

Sub Macro1()
Dim r As Range
    For Each r In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp).Offset(2)).SpecialCells(xlCellTypeBlanks).Areas
        If r.Count > 1 Then
            Range(Cells(1, 1), r).Select
            Exit For
        End If
    Next
End Sub