VBA - Check if data has a specific number of rows

[TheHack22]

Hi VBA Experts,

I've looked around but couldn't find a VBA Sub to do my task.
I have a Sub that takes a dataset, creates a Pivot Table of it, then copies and pastes it to another place.
The issue is that sometimes that dataset doesn't have all the data, because of glitches.
Is there a Sub that I can use to check the Summarized data to ensure that the data is the last 7 days(7 rows + Column Label)?
If the summarized data doesn't = 7 rows, I would like to see a Msg indicating the same.

Imran

 

[mumps]

Try:

Sub CountRows()
    If Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row - 1 <> 7 Then
        MsgBox ("The summarized data doesn't have 7 rows.")
    End If
End Sub

 

[TheHack22]

Try:

Sub CountRows()
    If Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row - 1 <> 7 Then
        MsgBox ("The summarized data doesn't have 7 rows.")
    End If
End Sub

@mumps

Thanks very much for your response. I just realized that the image I posted is a little misleading.
This data range is Col AI: Col AM. This is the range I would like the Sub to analyze: = 7 Rows.
Imran

 

[mumps]

Try:

Sub CountRows()
    If Range("AI" & Rows.Count).End(xlUp).Row - 1 <> 7 Then
        MsgBox ("The summarized data doesn't have 7 rows.")
    End If
End Sub

 

[TheHack22]

Try:

Sub CountRows()
    If Range("AI" & Rows.Count).End(xlUp).Row - 1 <> 7 Then
        MsgBox ("The summarized data doesn't have 7 rows.")
    End If
End Sub

@mumps

Thanks a million. This is awesome
Imran

 

[mumps]

You are very welcome.