Runtime error when combining data using macro

[lllboredlll]

I found this script on here and can't find the thread so I could ask this question.

Attached is the ws i'm trying to combine data in

I get an runtime error on "Myval = Range("A1:A" & ws1.Range("A2297").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Count" but am unable to figure out my problem

This is NOT my script nor do I take credit for any parts. Just simply trying to get some stuff sorted for work.


thanks...