Check range A10 to A45 and if cell not empty then same line in B must have value

Hello Albert,

I am not sure what you mean by "If not then macro stops.", but this should detect the situation that you described.

Sub MainMacro()
Dim ws As Worksheet:    Set ws = Sheets("Sheet1")
Dim rng As Range, rCell As Range

Set rng = ws.Range("A10:A45")

For Each rCell In rng
    If Not IsEmpty(rCell) Then
        If IsEmpty(rCell.Offset(0, 1)) Or Not IsNumeric(rCell.Offset(0, 1)) Then
            MsgBox ("You must enter a numeric value in " & rCell.Offset(0, 1).Address)
            Exit Sub
        End If
    End If
Next rCell

End Sub