Macro to show a message when some cells in between before the last cell are empty

Hi All,

I have a spreadsheet which has multiple rows and columns. Now I want to throw one single error message for all blank cells before the last cell with value. Below is a sample table:

sun	mon
tue	wed
	thur
fri	sat

Currently I have the the below macro which shows popup message for every blank cell before last cell:

For count3 = 1 To LastCol
        For RowCount = 8 To ws.Cells(Rows.Count, count3).End(xlUp).Row
       
        If Cells(RowCount, count3) = "" Then
            MsgBox ("Please give inputs in sequentially. Cells cannot be empty in between.")
        End If
        
       Next
    Next

Can any one please help me with these?

Can you please explain the below line

before the last cell with value

Ok understood... What would be the expected Message box text you would like to get?

Sub CheckPoint()
Dim EndCl As Integer, i As Integer, StRw As Byte
Dim EndRw As Long, x As Long, CnT As Long
Dim myMsG As String, myRng As Range

EndCl = Cells(1, Columns.Count).End(xlToLeft).Column

For i = 1 To EndCl
    StRw = 8
    EndRw = Cells(Rows.Count, i).End(xlUp).Row
    Set myRng = Range(Cells(StRw, i), Cells(EndRw, i))
    myMsG = "Please give inputs in sequentially. Cells cannot be empty in between."
    CnT = WorksheetFunction.CountA(myRng)
    
    If CnT <> myRng.Rows.Count And CnT <> 0 Then
        myMsG = myMsG & " Blanks Found In Column " & i
        MsgBox myMsG, vbInformation, "Blanks Found"
        myMsG = ""
    End If
Next i

End Sub