Counting values using Vb

[Pauljj]

Part of my macro is to copy a range of data from the source to a new workbook. I want to copy the range from if '366 Count' appears in column J (this is unique) and is easy enough to do down to where 366 no longer appears in column K, so I simply need my VB code to count the number of times 366 appears in column K, would someone be able to advise please

Thanks

 

[Pauljj]

Maybe this wasn't as easy yo answer as I thought, to give you some more background or show you what I thought might work is this


With WSO.Range("J1:J5000")

Set R = .Find("366 Count", LookIn:=xlValues)
H = R.Row

End With

With WSO.Range("k1:k5000")

Set i = .Count("366", LookIn:=xlValues) + H

j = i.Row

End With


My counting 366 is where it all goes wrong

 

[Pauljj]

Anyone able to help.....please ?!??!