Counting non blank cells in column

[Timbo50]

Can someone help please. I'm trying to assign a variable to count a column of data starting from, in my case cell G197, to the last non blank cell in the column. The data is added to daily so will always change.

I've been trying: nr = ActiveSheet.Range("g197", ActiveSheet.Cells(Rows.Count, 1).End(xlUp)).Rows.Count

but this only counts 2.
Any ideas please as to where I'm going wrong.

 

[Jonmo1]

Welcome to the board.

Since it's column G you're wanting to test, you might want to change this part
ActiveSheet.Cells(Rows.Count, 1)
to
ActiveSheet.Cells(Rows.Count, 7)

or even
ActiveSheet.Cells(Rows.Count, "G")

 

[Timbo50]

Many thanks for that. It works perfectly.

 

[Jonmo1]

You're welcome.