Sub modMsgboxFreeCellInRange()
Dim rng As Range, c As Range, rngFound As Range
Dim lngCol As Long, lngHasFormulaCounter As Long, lngPossibleColumn As Long
With ActiveSheet
Set rng = Range("I711:NO760")
End With
For lng = 1 To rng.Columns.Count Step 1
Set rngFound = rng.Columns(lng)
If Application.WorksheetFunction.CountIf(rngFound, "") = rngFound.Cells.Count Then
lngHasFormulaCounter = 0
lngPossibleColumn = 0
For Each c In rngFound
If c.HasFormula = True Then
lngHasFormulaCounter = lngHasFormulaCounter + 1
Else
lngPossibleColumn = c.Column
End If
Next
If lngHasFormulaCounter = 0 Then
MsgBox lngPossibleColumn
Exit For
End If
End If
Next
Set c = Nothing: Set rng = Nothing: Set rngFound = Nothing
End Sub